options(“install.lock”=FALSE) install.packages(“dygraphs”) install.packages(‘xts’) install.packages(“ggrepel”) install.packages(“tidyverse”)
# 2015
vt_15 <- read.csv("visitor_2015.csv")
library(dplyr)
##
## 다음의 패키지를 부착합니다: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
# 사용자 함수 - summarise(sum columns)
lng_y <- function(a, b, c, d, e){
sum_y <- a %>%
summarise(sum(b),
sum(c),
sum(d),
sum(e))
return(sum_y)
}
# 영어권
en_15 <- lng_y(vt_15,
vt_15$경복궁.영어권., vt_15$덕수궁.영어권.,
vt_15$창경궁.영어권., vt_15$창덕궁.영어권.)
en_15 <- sum(en_15)
# 중국어권
ch_15 <- lng_y(vt_15,
vt_15$경복궁.중국어권., vt_15$덕수궁.중국어권.,
vt_15$창경궁.중국어권., vt_15$창덕궁.중국어권.)
ch_15 <- sum(ch_15)
# 일본어권
jp_15 <- lng_y(vt_15,
vt_15$경복궁.일본어권., vt_15$덕수궁.일본어권.,
vt_15$창경궁.일본어권., vt_15$창덕궁.일본어권.)
jp_15 <- sum(jp_15)
# 기타외국인
ect_15 <- lng_y(vt_15,
vt_15$경복궁.기타외국인., vt_15$덕수궁.기타외국인.,
vt_15$창경궁.기타외국인., vt_15$창덕궁.기타외국인.)
ect_15 <- sum(ect_15)
# 2015 데이터 프레임
visitor_15 <- c(en_15, ch_15, jp_15, ect_15)
language <- c("영어권", "중국어권", "일본어권", "기타외국인")
vt_15 <- data.frame(language, visitor_15);vt_15
## language visitor_15
## 1 영어권 404312
## 2 중국어권 1554943
## 3 일본어권 117982
## 4 기타외국인 260412
# ====
# 2016
vt_16 <- read.csv("visitor_2016.csv")
library(dplyr)
# 영어권
en_16 <- lng_y(vt_16,
vt_16$경복궁.영어권., vt_16$덕수궁.영어권.,
vt_16$창경궁.영어권., vt_16$창덕궁.영어권.)
en_16 <- sum(en_16)
# 중국어권
ch_16 <- lng_y(vt_16,
vt_16$경복궁.중국어권., vt_16$덕수궁.중국어권.,
vt_16$창경궁.중국어권., vt_16$창덕궁.중국어권.)
ch_16 <- sum(ch_16)
# 일본어권
jp_16 <- lng_y(vt_16,
vt_16$경복궁.일본어권., vt_16$덕수궁.일본어권.,
vt_16$창경궁.일본어권., vt_16$창덕궁.일본어권.)
jp_16 <- sum(jp_16)
# 기타외국인
ect_16 <- lng_y(vt_16,
vt_16$경복궁.기타외국인., vt_16$덕수궁.기타외국인.,
vt_16$창경궁.기타외국인., vt_16$창덕궁.기타외국인.)
ect_16 <- sum(ect_16)
# 2016 데이터 프레임
visitor_16 <- c(en_16, ch_16, jp_16, ect_16)
vt_16 <- data.frame(language, visitor_16);vt_16
## language visitor_16
## 1 영어권 518045
## 2 중국어권 2679791
## 3 일본어권 172160
## 4 기타외국인 388549
# ====
# 2017
vt_17 <- read.csv("visitor_2017.csv")
library(dplyr)
# 영어권
en_17 <- lng_y(vt_17,
vt_17$경복궁.영어권., vt_17$덕수궁.영어권.,
vt_17$창경궁.영어권., vt_17$창덕궁.영어권.)
en_17 <- sum(en_17)
# 중국어권
ch_17 <- lng_y(vt_17,
vt_17$경복궁.중국어권., vt_17$덕수궁.중국어권.,
vt_17$창경궁.중국어권., vt_17$창덕궁.중국어권.)
ch_17 <- sum(ch_17)
# 일본어권
jp_17 <- lng_y(vt_17,
vt_17$경복궁.일본어권., vt_17$덕수궁.일본어권.,
vt_17$창경궁.일본어권., vt_17$창덕궁.일본어권.)
jp_17 <- sum(jp_17)
# 기타외국인
ect_17 <- lng_y(vt_17,
vt_17$경복궁.기타외국인., vt_17$덕수궁.기타외국인.,
vt_17$창경궁.기타외국인., vt_17$창덕궁.기타외국인.)
ect_17 <- sum(ect_17)
# 2017 데이터 프레임
visitor_17 <- c(en_17, ch_17, jp_17, ect_17)
vt_17 <- data.frame(language, visitor_17);vt_17
## language visitor_17
## 1 영어권 651712
## 2 중국어권 539637
## 3 일본어권 144116
## 4 기타외국인 677079
# ====
# 2018
vt_18 <- read.csv("visitor_2018.csv")
library(dplyr)
# 영어권
en_18 <- lng_y(vt_18,
vt_18$경복궁.영어권., vt_18$덕수궁.영어권.,
vt_18$창경궁.영어권., vt_18$창덕궁.영어권.)
en_18 <- sum(en_18)
# 중국어권
ch_18 <- lng_y(vt_18,
vt_18$경복궁.중국어권., vt_18$덕수궁.중국어권.,
vt_18$창경궁.중국어권., vt_18$창덕궁.중국어권.)
ch_18 <- sum(ch_18)
# 일본어권
jp_18 <- lng_y(vt_18,
vt_18$경복궁.일본어권., vt_18$덕수궁.일본어권.,
vt_18$창경궁.일본어권., vt_18$창덕궁.일본어권.)
jp_18 <- sum(jp_18)
# 기타외국인
ect_18 <- lng_y(vt_18,
vt_18$경복궁.기타외국인., vt_18$덕수궁.기타외국인.,
vt_18$창경궁.기타외국인., vt_18$창덕궁.기타외국인.)
ect_18 <- sum(ect_18)
# 2018 데이터 프레임
visitor_18 <- c(en_18, ch_18, jp_18, ect_18)
vt_18 <- data.frame(language, visitor_18);vt_18
## language visitor_18
## 1 영어권 792248
## 2 중국어권 377493
## 3 일본어권 159525
## 4 기타외국인 703724
# ====
# 2019
vt_19 <- read.csv("visitor_2019.csv")
library(dplyr)
# 영어권
en_19 <- lng_y(vt_19,
vt_19$경복궁.영어권., vt_19$덕수궁.영어권.,
vt_19$창경궁.영어권., vt_19$창덕궁.영어권.)
en_19 <- sum(en_19)
# 중국어권
ch_19 <- lng_y(vt_19,
vt_19$경복궁.중국어권., vt_19$덕수궁.중국어권.,
vt_19$창경궁.중국어권., vt_19$창덕궁.중국어권.)
ch_19 <- sum(ch_19)
# 일본어권
jp_19 <- lng_y(vt_19,
vt_19$경복궁.일본어권., vt_19$덕수궁.일본어권.,
vt_19$창경궁.일본어권., vt_19$창덕궁.일본어권.)
jp_19 <- sum(jp_19)
# 기타외국인
ect_19 <- lng_y(vt_19,
vt_19$경복궁.기타외국인., vt_19$덕수궁.기타외국인.,
vt_19$창경궁.기타외국인., vt_19$창덕궁.기타외국인.)
ect_19 <- sum(ect_19)
# 2019 데이터 프레임
visitor_19 <- c(en_19, ch_19, jp_19, ect_19)
vt_19 <- data.frame(language, visitor_19);vt_19
## language visitor_19
## 1 영어권 720450
## 2 중국어권 760313
## 3 일본어권 158916
## 4 기타외국인 841391
# ====
# 2020
vt_20 <- read.csv("visitor_2020.csv")
library(dplyr)
# 영어권
en_20 <- lng_y(vt_20,
vt_20$경복궁.영어권., vt_20$덕수궁.영어권.,
vt_20$창경궁.영어권., vt_20$창덕궁.영어권.)
en_20 <- sum(en_20)
# 중국어권
ch_20 <- lng_y(vt_20,
vt_20$경복궁.중국어권., vt_20$덕수궁.중국어권.,
vt_20$창경궁.중국어권., vt_20$창덕궁.중국어권.)
ch_20 <- sum(ch_20)
# 일본어권
jp_20 <- lng_y(vt_20,
vt_20$경복궁.일본어권., vt_20$덕수궁.일본어권.,
vt_20$창경궁.일본어권., vt_20$창덕궁.일본어권.)
jp_20 <- sum(jp_20)
# 기타외국인
ect_20 <- lng_y(vt_20,
vt_20$경복궁.기타외국인., vt_20$덕수궁.기타외국인.,
vt_20$창경궁.기타외국인., vt_20$창덕궁.기타외국인.)
ect_20 <- sum(ect_20)
# 2020 데이터 프레임
visitor_20 <- c(en_20, ch_20, jp_20, ect_20)
vt_20 <- data.frame(language, visitor_20);vt_20
## language visitor_20
## 1 영어권 72584
## 2 중국어권 63344
## 3 일본어권 15818
## 4 기타외국인 110996
# 2015 ~ 2020 데이터 프레임
EN <- c(en_15, en_16, en_17, en_18, en_19, en_20)
CH <- c(ch_15, ch_16, ch_17, ch_18, ch_19, ch_20)
JP <- c(jp_15, jp_16, jp_17, jp_18, jp_19, jp_20)
ECT <- c(ect_15, ect_16, ect_17, ect_18, ect_19, ect_20)
year <- c("2015", "2016", "2017", "2018", "2019", "2020")
vt_pl <- data.frame(year, EN, CH, JP, ECT);vt_pl
## year EN CH JP ECT
## 1 2015 404312 1554943 117982 260412
## 2 2016 518045 2679791 172160 388549
## 3 2017 651712 539637 144116 677079
## 4 2018 792248 377493 159525 703724
## 5 2019 720450 760313 158916 841391
## 6 2020 72584 63344 15818 110996
#시각화 - line graph
library(ggplot2)
visitor_lang <- ggplot(vt_pl,aes(x=year))+
geom_line(aes(y=EN, color = "영어권"), group=1)+
geom_line(aes(y=CH, color = "중국어권"),group=2)+
geom_line(aes(y=JP, color = "일본어권"),group=3)+
geom_line(aes(y=ECT, color = "기타언어권"),group=4)+
ggtitle("언어권별 외국인 관광객 방문 추이")+
labs(x = "연도", y = "관광객 수", color = "언어권")
visitor_lang
# 반응형 시계열 그래프
library(dygraphs)
library(xts)
## 필요한 패키지를 로딩중입니다: zoo
##
## 다음의 패키지를 부착합니다: 'zoo'
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
##
## 다음의 패키지를 부착합니다: 'xts'
## The following objects are masked from 'package:dplyr':
##
## first, last
# year 의 요인들을 date 타입으로 바꾸기
# 컬럼 내 특정 값 바꾸기
vt_pl[vt_pl$year == 2015, "year"] = "2015-01-01"
vt_pl[vt_pl$year == 2016, "year"] = "2016-01-01"
vt_pl[vt_pl$year == 2017, "year"] = "2017-01-01"
vt_pl[vt_pl$year == 2018, "year"] = "2018-01-01"
vt_pl[vt_pl$year == 2019, "year"] = "2019-01-01"
vt_pl[vt_pl$year == 2020, "year"] = "2020-01-01"
# year 값들을 date 타입으로 바꾸고 확인
vt_pl$year <- as.POSIXct(vt_pl$year)
class(vt_pl$year)
## [1] "POSIXct" "POSIXt"
# 변수를 시계열 그래프용으로 변환
EN <- xts(vt_pl$EN, order.by = vt_pl$year)
CH <- xts(vt_pl$CH, order.by = vt_pl$year)
JP <- xts(vt_pl$JP, order.by = vt_pl$year)
ECT <- xts(vt_pl$ECT, order.by = vt_pl$year)
# cbind 로 묶어서 변수 선언
vt_dy <- cbind(EN, CH, JP, ECT)
# 시계열 그래프 시각화
dygraph(vt_dy) %>%
dyRangeSelector()
# pie chart
# 외국인 관광객 총원
library(readxl)
cp_kf <- read_excel("cp_KF.xlsx")
fsum <- vt_pl %>%
select(EN, CH, JP, ECT)
year <- cp_kf %>%
select(기간)
lng_sum <- apply(fsum,1,sum)
fr_sum <- data.frame(vt_pl$year, lng_sum);fr_sum
## vt_pl.year lng_sum
## 1 2015-01-01 2337649
## 2 2016-01-01 3758545
## 3 2017-01-01 2012544
## 4 2018-01-01 2032990
## 5 2019-01-01 2481070
## 6 2020-01-01 262742
# 백분율
en_per <- (vt_pl$EN/fr_sum$lng_sum)*100
ch_per <- (vt_pl$CH/fr_sum$lng_sum)*100
jp_per <- (vt_pl$JP/fr_sum$lng_sum)*100
ect_per <- (vt_pl$ECT/fr_sum$lng_sum)*100
vt_pie <- data.frame(vt_pl$year, en_per, ch_per, jp_per, ect_per);vt_pie
## vt_pl.year en_per ch_per jp_per ect_per
## 1 2015-01-01 17.29567 66.51739 5.047037 11.13991
## 2 2016-01-01 13.78313 71.29863 4.580496 10.33775
## 3 2017-01-01 32.38250 26.81367 7.160887 33.64294
## 4 2018-01-01 38.96960 18.56836 7.846817 34.61522
## 5 2019-01-01 29.03787 30.64456 6.405140 33.91242
## 6 2020-01-01 27.62558 24.10882 6.020355 42.24524
vt_pie <- vt_pie %>%
rename(year = vt_pl.year,
EN = en_per,
CH = ch_per,
JP = jp_per,
ECT = ect_per)
# 파이는 연도별로 총 5개
pie_15 <- vt_pie[1,]
pie_16 <- vt_pie[2,]
pie_17 <- vt_pie[3,]
pie_18 <- vt_pie[4,]
pie_19 <- vt_pie[5,]
pie_20 <- vt_pie[6,]
# pie_00 데이터 행렬 가공
lang_p <- c("EN", "CH", "JP", "ECT")
vt_p <- function(a){
en <- a[1,2]
ch <- a[1,3]
jp <- a[1,4]
ect <- a[1,5]
vt_p <- c(en, ch, jp, ect)
return(vt_p)
}
p_15 <- vt_p(pie_15)
p_16 <- vt_p(pie_16)
p_17 <- vt_p(pie_17)
p_18 <- vt_p(pie_18)
p_19 <- vt_p(pie_19)
p_20 <- vt_p(pie_20)
p_15 <- p_15 %>%
round(1)
p_16 <- p_16 %>%
round(1)
p_17 <- p_17 %>%
round(1)
p_18 <- p_18 %>%
round(1)
p_19 <- p_19 %>%
round(1)
p_20 <- p_20 %>%
round(1)
pie_15 <- data.frame(lang_p, p_15)
pie_16 <- data.frame(lang_p, p_16)
pie_17 <- data.frame(lang_p, p_17)
pie_18 <- data.frame(lang_p, p_18)
pie_19 <- data.frame(lang_p, p_19)
pie_20 <- data.frame(lang_p, p_20)
# pie chart visualization
library(ggrepel)
library(tidyverse);search()
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v tibble 3.1.6 v purrr 0.3.4
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 2.1.2 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x xts::first() masks dplyr::first()
## x dplyr::lag() masks stats::lag()
## x xts::last() masks dplyr::last()
## [1] ".GlobalEnv" "package:forcats" "package:stringr"
## [4] "package:purrr" "package:readr" "package:tidyr"
## [7] "package:tibble" "package:tidyverse" "package:ggrepel"
## [10] "package:readxl" "package:xts" "package:zoo"
## [13] "package:dygraphs" "package:ggplot2" "package:dplyr"
## [16] "package:stats" "package:graphics" "package:grDevices"
## [19] "package:utils" "package:datasets" "package:methods"
## [22] "Autoloads" "package:base"
# 2015
pie_2015 <- ggplot(pie_15, aes(x="", y=p_15, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_15, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2015 언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2016
pie_2016 <- ggplot(pie_16, aes(x="", y=p_16, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_16, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2016 언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2017
pie_2017 <- ggplot(pie_17, aes(x="", y=p_17, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_17, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2017언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2018
pie_2018 <- ggplot(pie_18, aes(x="", y=p_18, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_18, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2018 언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2019
pie_2019 <- ggplot(pie_19, aes(x="", y=p_19, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_19, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2019 언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2020
pie_2020 <- ggplot(pie_20, aes(x="", y=p_20, fill=lang_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(p_20, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2020 언어권별 외국인 관광객 방문 추이")+
guides(fill = guide_legend(title = "언어권")) +
scale_fill_discrete(limits=lang_p)+
theme_void()
# 2015 ~ 2020 pie chart 모아보기
pie_2015
pie_2016
pie_2017
pie_2018
pie_2019
pie_2020
# =====================================================
# db connection
library(odbc)
library(rJava)
library(RJDBC)
## 필요한 패키지를 로딩중입니다: DBI
library(DBI)
# db drive 생성
#jdbc_d <- JDBC(driverClass = "oracle.jdbc.OracleDriver",
# classPath = "C:/Database/app/user/product/18.0.0/dbhomeXE/inventory/Scripts/ext/jlib/ojdbc8.jar")
#dm_con1 <- dbConnect(jdbc_d,"jdbc:oracle:thin:@10.10.12.102:1521:XE",
# "hr","hr")
# 테이블 생성 후 데이터 삽입
#dbWriteTable(dm_con1, "Visitor_Lang", vt_pl)
# 데이터 정상 삽입 확인
#dbGetQuery(dm_con1, "SELECT * FROM Visitor_Lang")
#object.size(vt_pl)
library(readxl)
library(dplyr)
library(ggrepel)
library(tidyverse)
library(dygraphs)
library(xts)
library(ggplot2)
library(dplyr)
cp_kf <- read_excel("cp_KF.xlsx")
year <- c("2015", "2016", "2017", "2018", "2019", "2020")
# 내국인 관광객 수
ksum <- cp_kf %>%
select(경복궁_내국인, 창덕궁_내국인, 창경궁_내국인, 덕수궁_내국인)
year2 <- cp_kf %>%
select(기간)
vt_kor <- apply(ksum,1,sum)
KR <- data.frame(year2, vt_kor)
# 외국인 관광객 수
fsum <- cp_kf %>%
select(경복궁_외국인, 창덕궁_외국인, 창경궁_외국인, 덕수궁_외국인)
vt_for <- apply(fsum,1,sum)
FR <- data.frame(year2, vt_for)
# 내국인 외국인 기간별 join
vt_total <- left_join(KR, FR, by="기간") # rename(year = 기간)
vt_total <- vt_total %>%
rename(year = 기간)
# =====
#시각화 - line graph
library(ggplot2)
visitor_KF <- ggplot(vt_total,aes(x=year))+
geom_line(aes(y=vt_kor, color = "내국인(KR)"), group=1)+
geom_line(aes(y=vt_for, color = "외국인(FR)"), group=2)+
ggtitle("국내 방문객 대비 외국인 방문객 비교 ")+
labs(x = "연도", y = "관광객 수", color = "내.외국인")
# =====
#시각화 - interactive, pie
# interactive line
# 반응형 시계열 그래프
library(dygraphs)
library(xts)
# year 의 요인들을 date 타입으로 바꾸기
# 컬럼 내 특정 값 바꾸기
class(vt_total$year)
## [1] "character"
vt_total[vt_total$year == 2015, "year"] = "2015-01-01"
vt_total[vt_total$year == 2016, "year"] = "2016-01-01"
vt_total[vt_total$year == 2017, "year"] = "2017-01-01"
vt_total[vt_total$year == 2018, "year"] = "2018-01-01"
vt_total[vt_total$year == 2019, "year"] = "2019-01-01"
vt_total[vt_total$year == 2020, "year"] = "2020-01-01"
# year 값들을 date 타입으로 바꾸고 확인
vt_total$year <- as.POSIXct(vt_total$year)
class(vt_total$year)
## [1] "POSIXct" "POSIXt"
# 변수를 시계열 그래프용으로 변환
KOR <- xts(vt_total$vt_kor, order.by = vt_total$year)
FOR <- xts(vt_total$vt_for, order.by = vt_total$year)
# cbind 로 묶어서 변수 선언
total_dy <- cbind(KOR, FOR)
# 시계열 그래프 시각화
dygraph(total_dy) %>%
dyRangeSelector()
# pie
# 내.외국인 관광객 총원
tsum <- vt_total %>%
select(vt_kor, vt_for)
year <- cp_kf %>%
select(기간)
tsum <- apply(tsum, 1, sum)
tsum <- data.frame(year, tsum)
# 백분율
kor_per <- (vt_total$vt_kor/tsum$tsum)*100
for_per <- (vt_total$vt_for/tsum$tsum)*100
kor_per <- kor_per %>% round(1)
for_per <- for_per %>% round(1)
t_pie <- data.frame(year, kor_per, for_per)
t_pie <- t_pie %>%
rename(year = 기간,
KR = kor_per,
FR = for_per)
# 파이는 연도별로 총 5개
tpie_15 <- t_pie[1,]
tpie_16 <- t_pie[2,]
tpie_17 <- t_pie[3,]
tpie_18 <- t_pie[4,]
tpie_19 <- t_pie[5,]
tpie_20 <- t_pie[6,]
# pie_00 데이터 행렬 가공
kf_p <- c("KR", "FR")
tt_p <- function(a){
KR <- a[1,2]
FR <- a[1,3]
tt_p <- c(KR, FR)
return(tt_p)
}
# 연도별 내.외국인 백분율 추출
kfp_15 <- tt_p(tpie_15)
kfp_16 <- tt_p(tpie_16)
kfp_17 <- tt_p(tpie_17)
kfp_18 <- tt_p(tpie_18)
kfp_19 <- tt_p(tpie_19)
kfp_20 <- tt_p(tpie_20)
# 내.외국인 기준으로 관광객 수 백분율을 data.frame
tpie_15 <- data.frame(kf_p, kfp_15)
tpie_16 <- data.frame(kf_p, kfp_16)
tpie_17 <- data.frame(kf_p, kfp_17)
tpie_18 <- data.frame(kf_p, kfp_18)
tpie_19 <- data.frame(kf_p, kfp_19)
tpie_20 <- data.frame(kf_p, kfp_20)
# pie chart visualization
library(ggrepel)
library(tidyverse);search()
## [1] ".GlobalEnv" "package:RJDBC" "package:DBI"
## [4] "package:rJava" "package:odbc" "package:forcats"
## [7] "package:stringr" "package:purrr" "package:readr"
## [10] "package:tidyr" "package:tibble" "package:tidyverse"
## [13] "package:ggrepel" "package:readxl" "package:xts"
## [16] "package:zoo" "package:dygraphs" "package:ggplot2"
## [19] "package:dplyr" "package:stats" "package:graphics"
## [22] "package:grDevices" "package:utils" "package:datasets"
## [25] "package:methods" "Autoloads" "package:base"
# 2015
tpie_2015 <- ggplot(tpie_15, aes(x="", y=kfp_15, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_15, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2015 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2016
tpie_2016 <- ggplot(tpie_16, aes(x="", y=kfp_16, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_16, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2016 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2017
tpie_2017 <- ggplot(tpie_17, aes(x="", y=kfp_17, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_17, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2017 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2018
tpie_2018 <- ggplot(tpie_18, aes(x="", y=kfp_18, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_18, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2018 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2019
tpie_2019 <- ggplot(tpie_19, aes(x="", y=kfp_19, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_19, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2019 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2020
tpie_2020 <- ggplot(tpie_20, aes(x="", y=kfp_20, fill=kf_p)) +
geom_bar(stat = "identity", color = "white") +
coord_polar(theta = "y") +
geom_text(aes(x = 1.6, label = paste0(kfp_20, "%")),
position = position_stack(vjust = .5)) +
ggtitle("2020 국내 방문객 대비 외국인 방문객 비교")+
guides(fill = guide_legend(title = "내.외국인")) +
scale_fill_discrete(limits=kf_p)+
theme_void()
# 2015 ~ 2020 pie chart 모아보기
tpie_2015
tpie_2016
tpie_2017
tpie_2018
tpie_2019
tpie_2020
# =====================================================
# db connection
library(odbc)
library(rJava)
library(RJDBC)
library(DBI)
# db drive 생성
#jdbc_d <- JDBC(driverClass = "oracle.jdbc.OracleDriver",
# classPath = "C:/Database/app/user/product/18.0.0/dbhomeXE/inventory/Scripts/ext/jlib/ojdbc8.jar")
#dm_con1 <- dbConnect(jdbc_d,"jdbc:oracle:thin:@10.10.12.102:1521:XE",
# "hr","hr")
# 테이블 생성 후 데이터 삽입
#dbWriteTable(dm_con1, "Visitor_KF", vt_total)
# 데이터 정상 삽입 확인
#dbGetQuery(dm_con1, "SELECT * FROM Visitor_KF")
#object.size(vt_total)
library(rvest);search()
##
## 다음의 패키지를 부착합니다: 'rvest'
## The following object is masked from 'package:readr':
##
## guess_encoding
## [1] ".GlobalEnv" "package:rvest" "package:RJDBC"
## [4] "package:DBI" "package:rJava" "package:odbc"
## [7] "package:forcats" "package:stringr" "package:purrr"
## [10] "package:readr" "package:tidyr" "package:tibble"
## [13] "package:tidyverse" "package:ggrepel" "package:readxl"
## [16] "package:xts" "package:zoo" "package:dygraphs"
## [19] "package:ggplot2" "package:dplyr" "package:stats"
## [22] "package:graphics" "package:grDevices" "package:utils"
## [25] "package:datasets" "package:methods" "Autoloads"
## [28] "package:base"
library(dplyr);search()
## [1] ".GlobalEnv" "package:rvest" "package:RJDBC"
## [4] "package:DBI" "package:rJava" "package:odbc"
## [7] "package:forcats" "package:stringr" "package:purrr"
## [10] "package:readr" "package:tidyr" "package:tibble"
## [13] "package:tidyverse" "package:ggrepel" "package:readxl"
## [16] "package:xts" "package:zoo" "package:dygraphs"
## [19] "package:ggplot2" "package:dplyr" "package:stats"
## [22] "package:graphics" "package:grDevices" "package:utils"
## [25] "package:datasets" "package:methods" "Autoloads"
## [28] "package:base"
library(stringr) # str_sub() # 문자 자르기
library(readr) # parse_number() #숫자만
library(data.table);search() # %like% 연산자
##
## 다음의 패키지를 부착합니다: 'data.table'
## The following object is masked from 'package:purrr':
##
## transpose
## The following objects are masked from 'package:xts':
##
## first, last
## The following objects are masked from 'package:dplyr':
##
## between, first, last
## [1] ".GlobalEnv" "package:data.table" "package:rvest"
## [4] "package:RJDBC" "package:DBI" "package:rJava"
## [7] "package:odbc" "package:forcats" "package:stringr"
## [10] "package:purrr" "package:readr" "package:tidyr"
## [13] "package:tibble" "package:tidyverse" "package:ggrepel"
## [16] "package:readxl" "package:xts" "package:zoo"
## [19] "package:dygraphs" "package:ggplot2" "package:dplyr"
## [22] "package:stats" "package:graphics" "package:grDevices"
## [25] "package:utils" "package:datasets" "package:methods"
## [28] "Autoloads" "package:base"
library(ggplot2)
library(dygraphs) # 인터렉티브 시계열 그래프
library(xts) #시계열 데이터 생성
library(ggplot2)
library(tidyr)
library(plotrix)
library(readxl)
library(wordcloud)
## 필요한 패키지를 로딩중입니다: RColorBrewer
library(RColorBrewer)
library(odbc)
library(rJava)
library(RJDBC)
library(DBI)
library(wordcloud2)
#미국
ame_Gyeongbokgung <- read.csv("amerika.csv",encoding = "UTF-8")
ame_chong <- read.csv("changduck.csv",encoding = "UTF-8")
ame_ducksu <- read.csv("Deoksugung.csv",encoding = "UTF-8")
ame_chongky <- read.csv("Changgyeonggung.csv",encoding = "UTF-8")
goo_ame<- data.frame(ame_Gyeongbokgung,ame_chong,ame_ducksu,ame_chongky)
new_goo<- goo_ame %>% select(2,3,5,8,11)
new_go <- new_goo[,c(2,1,3,4,5)]
#미국 검색빈도 파이 그래프
sum_new_go<- new_go %>% summarise(ky_sum = sum(Gyeongbokgung),
ch_sum = sum(Changdeokgung),
cy_sum = sum(Deoksugung),
du_sum = sum(Changgyeonggung))
rownames(sum_new_go) = c("value")
colnames(sum_new_go) = c("value")
sum_new_go<- t(sum_new_go)
ame<- as.data.frame(sum_new_go)
ame<- ame %>% mutate(gong = "ky_sum")
ame[2,2] <- "ch_sum"
ame[3,2] <- "cy_sum"
ame[4,2] <- "du_sum"
#일반 파이 그래프
pie(ame$value,labels = ame$gong)
#GGPLOt
ggplot(ame,aes(x="",y=value,fill=gong))+geom_bar(width = 1,stat = "identity")+coord_polar("y")+geom_text(aes(label=paste0(value)),position = position_stack(vjust = 0.5))+ ggtitle("2018~2022경복궁 검색 빈도 합계") +xlab(" ") + ylab("경복궁 검색 빈도")
#3D 파이
pie3D(ame$value,labels = ame$gong)
#인터렉티브
new_go$date <- as.POSIXct(new_go$date)
Gyeongbokgung <- xts(new_go$Gyeongbokgung, order.by = new_go$date)
Changdeokgung <- xts(new_go$Changdeokgung, order.by = new_go$date)
Deoksugung <- xts(new_go$Deoksugung, order.by = new_go$date)
Changgyeonggung <- xts(new_go$Changgyeonggung, order.by = new_go$date)
my_ame_size<- cbind(Gyeongbokgung,Changdeokgung,Deoksugung,Changgyeonggung)
#미국 검색 비율
dygraph(my_ame_size) %>% dyRangeSelector()
#일본
ja_Gyeongbokgung <- read.csv("ja_kyoung.csv",encoding = "UTF-8")
ja_chong <- read.csv("ja_chang.csv",encoding = "UTF-8")
ja_ducksu <- read.csv("ja_ducksu.csv",encoding = "UTF-8")
ja_chongky <- read.csv("ja_changgyoung.csv",encoding = "UTF-8")
goo_ja<- data.frame(ja_Gyeongbokgung,ja_chong,ja_ducksu,ja_chongky)
new_ja<- goo_ja %>% select(2,3,5,8,11)
new_japan <- new_ja[,c(2,1,3,4,5)]
new_japan_name <- new_japan %>% rename(ja_kyoung=경복궁...일본.,
ja_duck = 덕수궁...일본.,
ja_chang = 창덕궁...일본.,
ja_changkyung = 창경궁...일본.)
new_japan_name$date <- as.POSIXct(new_japan_name$date)
Gyeongbokgung <- xts(new_japan_name$ja_kyoung, order.by = new_go$date)
Changdeokgung <- xts(new_japan_name$ja_chang, order.by = new_go$date)
Deoksugung <- xts(new_japan_name$ja_duck, order.by = new_go$date)
Changgyeonggung <- xts(new_japan_name$ja_changkyung, order.by = new_go$date)
my_ja_size<- cbind(Gyeongbokgung,Changdeokgung,Deoksugung,Changgyeonggung)
#일본 검색 비율
dygraph(my_ja_size) %>% dyRangeSelector()
#중국
ca_Gyeongbokgung <- read.csv("ch_kyong.csv",encoding = "UTF-8")
ca_chong <- read.csv("ch_chong.csv",encoding = "UTF-8")
ca_ducksu <- read.csv("ch_duck.csv",encoding = "UTF-8")
ca_chongky <- read.csv("ch_chongkyoug.csv",encoding = "UTF-8")
goo_ca<- data.frame(ca_Gyeongbokgung,ca_chong,ca_ducksu,ca_chongky)
new_ca<- goo_ca %>% select(2,3,5,8,11)
new_china <- new_ca[,c(2,1,3,4,5)]
new_china_name <- new_china %>% rename(ca_kyoung=경복궁...대만.,
ca_duck = 덕수궁...대만.,
ca_chang = 창경궁...대만.,
ca_changkyung = 창경궁...대만..1)
new_china_name$date <- as.POSIXct(new_china_name$date)
Gyeongbokgung <- xts(new_china_name$ca_kyoung, order.by = new_go$date)
Changdeokgung <- xts(new_china_name$ca_chang, order.by = new_go$date)
Deoksugung <- xts(new_china_name$ca_duck, order.by = new_go$date)
Changgyeonggung <- xts(new_china_name$ca_changkyung, order.by = new_go$date)
my_ca_size<- cbind(Gyeongbokgung,Changdeokgung,Deoksugung,Changgyeonggung)
#중국 검색 비율
dygraph(my_ca_size) %>% dyRangeSelector()
#크롤링
#크롤링 빈도 워드 클라우드
jdbc_d <- JDBC(driverClass = "oracle.jdbc.OracleDriver",classPath = "C:/DATABASE/dbhomeXE/inventory/Scripts/ext/jlib/ojdbc8.jar")
# db 드라이브 생성 ----
dm_con1 <- dbConnect(jdbc_d,"jdbc:oracle:thin:@192.168.56.1:1521:XE",
"hr","hr")
#rs <- dbSendQuery(dm_con1, "CREATE TABLE samjo_word (title varchar2(20))")
#dbClearResult(rs)
my_kyoung=read_excel("naver_ky2.xlsx", sheet = 1)
## New names:
## * `` -> ...1
class(my_kyoung)
## [1] "tbl_df" "tbl" "data.frame"
dim(my_kyoung)
## [1] 800 3
title<-as.character(my_kyoung$title)
word<-strsplit(title, " ")
words<-unlist(word)
#한번만 사용해야 합니다. 테이블생성하고 데이터를 바로 넣는 작업이라
#dbWriteTable(dm_con1, "SAMJO_WORD", words)
#데이터가 정상적으로 들어갔는지 확인 작업입니다.
dbGetQuery(dm_con1, "SELECT * FROM SAMJO_WORD")
## X
## 1 서
## 2 측
## 3 주차장
## 4 계획
## 5 폐지…건축물
## 6 건립
## 7 추진
## 8 경복궁역은
## 9 지금…
## 10 ‘봄꽃
## 11 만개’
## 12 경복궁
## 13 야간
## 14 관람,
## 15 4월1일
## 16 시작…경회루
## 17 내부도
## 18 개방
## 19 경복궁
## 20 야간
## 21 관람·경회루
## 22 특별관람…
## 23 4월
## 24 1일
## 25 시작
## 26 경복궁역에서
## 27 인수위
## 28 만난
## 29 전장연…"원론적
## 30 면담,
## 31 실망스러워"
## 32 이준석
## 33 “전장연
## 34 이제야
## 35 시위
## 36 방식
## 37 바꿔…이게
## 38 애초
## 39 요구사항”
## 40 전장연,
## 41 내일부터
## 42 지하철
## 43 시위
## 44 멈추고
## 45 삭발투쟁
## 46 돌입
## 47 [포토]인수위-전장연
## 48 경복궁역에서
## 49 면담
## 50 [김세곤의
## 51 역사칼럼]전쟁과
## 52 조약의
## 53 한국
## 54 근대사(60)
## 55 인수위,
## 56 '지하철
## 57 시위'
## 58 방문...전장연
## 59 "중단
## 60 여부
## 61 내일
## 62 발표"
## 63 전장연,
## 64 내일부터
## 65 지하철
## 66 시위
## 67 멈추고
## 68 삭발투쟁
## 69 돌입
## 70 [포토]인수위-전장연
## 71 경복궁역에서
## 72 면담
## 73 경복궁
## 74 상반기
## 75 야간
## 76 관람<U+2219>경회루
## 77 특별관람
## 78 개시
## 79 [김세곤의
## 80 역사칼럼]전쟁과
## 81 조약의
## 82 한국
## 83 근대사(60)
## 84 인수위,
## 85 '지하철
## 86 시위'
## 87 방문...전장연
## 88 "중단
## 89 여부
## 90 내일
## 91 발표"
## 92 지하철
## 93 출근전
## 94 갈등
## 95 '고조'…
## 96 전장연,
## 97 릴레이
## 98 '삭발
## 99 투쟁'
## 100 돌입
## 101 4월
## 102 1일부터
## 103 '한복'
## 104 입고
## 105 가면
## 106 경복궁
## 107 야간
## 108 관람
## 109 무료
## 110 청와대가
## 111 떠난
## 112 뒤,
## 113 문화적
## 114 놀
## 115 터,
## 116 예술적
## 117 쉼터를
## 118 만들자[기고]
## 119 장애인단체에
## 120 무릎
## 121 꿇고
## 122 사과한
## 123 김예지
## 124 의원의
## 125 출근길…30분
## 126 거리,
## 127 1시간
## 128 23분
## 129 걸려
## 130 출근길
## 131 경복궁역
## 132 찾은
## 133 임이자
## 134 간사
## 135 문화재청
## 136 궁능유적본부,
## 137 봄맞이
## 138 경복궁
## 139 야간개장
## 140 시작
## 141 출근길
## 142 경복궁역
## 143 찾은
## 144 임이자
## 145 간사
## 146 경복궁역에서
## 147 삭발
## 148 투쟁나선
## 149 전장연
## 150 인수위,
## 151 경복궁역서
## 152 전장연
## 153 면담
## 154 이준석과
## 155 선
## 156 긋는
## 157 尹
## 158 인수위…
## 159 “장애인
## 160 권리
## 161 관심,
## 162 경청하러
## 163 왔다”
## 164 장애인단체
## 165 ‘지하철
## 166 시위’…정치권서도
## 167 “시민볼모”“죄송”
## 168 공방
## 169 확산
## 170 [최수문기자의
## 171 트래블로그]
## 172 청와대
## 173 개방과
## 174 경복궁
## 175 제자리
## 176 찾기
## 177 전장연,
## 178 경복궁역
## 179 승강장에서
## 180 [포토]전국장애인차별철폐연대,
## 181 경복궁역에서
## 182 기자회견
## 183 [청와대
## 184 개방]
## 185 도심
## 186 역사·문화
## 187 관광벨트
## 188 화룡점정…
## 189 연계
## 190 방안은?
## 191 [청와대
## 192 개방]
## 193 도심
## 194 역사·문화
## 195 관광벨트
## 196 화룡점정…
## 197 연계
## 198 방안은?
## 199 '靑
## 200 개방효과
## 201 2000억'
## 202 문체부
## 203 업무보고
## 204 다음날
## 205 장관은
## 206 "글쎄"
## 207 장애인
## 208 시위대
## 209 앞
## 210 무릎
## 211 꿇고
## 212 "대신
## 213 사과"
## 214 한
## 215 시각
## 216 장애인
## 217 국회의원
## 218 인수위,
## 219 내일
## 220 전장연
## 221 출근길
## 222 시위
## 223 현장
## 224 간다…"정책
## 225 반영
## 226 노력"(종합)
## 227 [포토]인수위원회-전국장애인차별철폐연대,
## 228 경복궁역에서
## 229 만나
## 230 전장연,
## 231 경복궁역
## 232 승강장
## 233 기자회견
## 234 삭발투쟁
## 235 나선
## 236 전장연...지하철
## 237 출근길
## 238 시위는
## 239 일단
## 240 멈춤
## 241 인수위,
## 242 장애인
## 243 '이동권
## 244 시위'
## 245 현장
## 246 방문...전장연
## 247 "이준석
## 248 사과하라"
## 249 전경련
## 250 “尹
## 251 집무실
## 252 용산
## 253 가면
## 254 연
## 255 1.8조
## 256 관광수입”…문체부
## 257 전망치
## 258 9배
## 259 ‘왜?’
## 260 [청와대
## 261 개방]
## 262 루브르
## 263 모델이냐
## 264 세인트제임스
## 265 모델이냐
## 266 ‘주목’
## 267 "정치권
## 268 대신해
## 269 사과"…장애인
## 270 시위
## 271 찾아
## 272 무릎
## 273 꿇은
## 274 국회의원
## 275 '경복궁역
## 276 시위'
## 277 전장연
## 278 면담하는
## 279 인수위
## 280 지하철
## 281 시위서
## 282 무릎
## 283 꿇은
## 284 김예지
## 285 “정치권
## 286 대신
## 287 사과”
## 288 [르포]
## 289 장애인단체
## 290 시위
## 291 28일
## 292 재개...3호선
## 293 경복궁역~4호선
## 294 혜화역
## 295 2022
## 296 상반기
## 297 경복궁
## 298 야간개장
## 299 "1일
## 300 최대
## 301 1300명
## 302 관람"
## 303 개방일은?
## 304 경복궁
## 305 흥복전
## 306 둘러보는
## 307 김현모
## 308 문화재청장
## 309 전장연,
## 310 오늘부터
## 311 지하철
## 312 시위
## 313 중단…"인수위
## 314 답변까지
## 315 삭발
## 316 투쟁"
## 317 이준석
## 318 “‘전장연’서
## 319 탑승
## 320 시위만
## 321 하니
## 322 출발
## 323 지연
## 324 없어.
## 325 애초
## 326 요구사항이
## 327 이것”
## 328 경복궁역서
## 329 '지하철
## 330 시위'
## 331 이어가는
## 332 전장연…인수위와
## 333 면담
## 334 [TF사진관]
## 335 [신선한
## 336 경제]
## 337 내달
## 338 1일부터
## 339 '경복궁
## 340 야간
## 341 관람'
## 342 무료
## 343 대상은?
## 344 경복궁역
## 345 승강장에서
## 346 기자회견
## 347 갖는
## 348 전장연
## 349 경복궁
## 350 상반기
## 351 야간관람
## 352 시작···"한복
## 353 입고
## 354 즐기세요"
## 355 인수위
## 356 "전장연
## 357 요구
## 358 면밀히
## 359 검토"…지하철
## 360 시위는
## 361 중단
## 362 "봄꽃
## 363 물든
## 364 경복궁
## 365 밤
## 366 정취
## 367 즐겨볼까"
## 368 '상상
## 369 속
## 370 동물'
## 371 천록,
## 372 모바일
## 373 세상서
## 374 만난다
## 375 인수위,
## 376 전장연과
## 377 간담회…이준석
## 378 사과
## 379 요구
## 380 전장연,
## 381 출근길
## 382 지하철
## 383 타기
## 384 시위
## 385 종료…3·4호선
## 386 지연
## 387 (영상)"인수위,
## 388 장애인
## 389 생존대책
## 390 4월20일까지
## 391 답하라"
## 392 인수위
## 393 만난
## 394 전장연,
## 395 '출근길
## 396 시위'
## 397 멈추고
## 398 릴레이
## 399 삭발
## 400 진행한다
## 401 청와대
## 402 인근
## 403 장기
## 404 미집행
## 405 주차장
## 406 폐지
## 407 건축물
## 408 짓는다
## 409 (영상)"인수위,
## 410 장애인
## 411 생존대책
## 412 4월20일까지
## 413 답하라"
## 414 인수위
## 415 만난
## 416 전장연,
## 417 '출근길
## 418 시위'
## 419 멈추고
## 420 릴레이
## 421 삭발
## 422 진행한다
## 423 청와대
## 424 인근
## 425 장기
## 426 미집행
## 427 주차장
## 428 폐지
## 429 건축물
## 430 짓는다
## 431 11번가,
## 432 전시회
## 433 티켓
## 434 판매
## 435 급증…'경복궁
## 436 야간
## 437 관람'
## 438 단독
## 439 판매
## 440 전장연
## 441 “권력자,
## 442 장애인
## 443 절규
## 444 왜곡”…이준석
## 445 “사과
## 446 안
## 447 해”
## 448 전장연,
## 449 인수위와
## 450 면담
## 451 진행
## 452 시각
## 453 경복궁역
## 454 기자회견
## 455 [청와대
## 456 개방]
## 457 막힘없는
## 458 등산로에
## 459 조선왕실
## 460 ‘시크릿
## 461 가든’도
## 462 기대…
## 463 “한강까지
## 464 연결된다”
## 465 경복궁역
## 466 승강장에서
## 467 기자회견하는
## 468 전국장애인차별철폐연대
## 469 다음달
## 470 1일부터
## 471 경복궁
## 472 상반기
## 473 야간
## 474 관람·경회루
## 475 특별관람
## 476 시작
## 477 [팩트체크]
## 478 청와대
## 479 개방
## 480 땐
## 481 경제효과
## 482 2000억?
## 483 연구자료
## 484 보니
## 485 경복궁역
## 486 승강장에서
## 487 기자회견하는
## 488 전국장애인차별철폐연대
## 489 다음달
## 490 1일부터
## 491 경복궁
## 492 상반기
## 493 야간
## 494 관람·경회루
## 495 특별관람
## 496 시작
## 497 [팩트체크]
## 498 청와대
## 499 개방
## 500 땐
## 501 경제효과
## 502 2000억?
## 503 연구자료
## 504 보니
## 505 尹,
## 506 '광화문→용산'…"국민과
## 507 약속
## 508 실천
## 509 의지
## 510 헤아려
## 511 달라"
## 512 [아이포토]인수위,
## 513 전장연
## 514 시위현장
## 515 찾아…'이준석
## 516 사과'
## 517 요구에
## 518 "전달하겠다"
## 519 '2022
## 520 경복궁
## 521 야간관람'
## 522 11번가
## 523 예매
## 524 폭주...대기인원만
## 525 수천
## 526 명
## 527 권력의
## 528 상징
## 529 청와대,
## 530 국민의
## 531 품으로
## 532 전국장애인차별철폐연대
## 533 경복궁역
## 534 기자회견
## 535 청와대와
## 536 통의동
## 537 사이…
## 538 분수대앞
## 539 시위가
## 540 사라졌다[더
## 541 스케치]
## 542 서울시,
## 543 '10년
## 544 표류'
## 545 경복궁
## 546 서측
## 547 주차장
## 548 계획
## 549 폐지…일반
## 550 건물
## 551 허용
## 552 전국장애인차별철폐연대
## 553 경복궁역
## 554 기자회견
## 555 청와대와
## 556 통의동
## 557 사이…
## 558 분수대앞
## 559 시위가
## 560 사라졌다[더
## 561 스케치]
## 562 서울시,
## 563 '10년
## 564 표류'
## 565 경복궁
## 566 서측
## 567 주차장
## 568 계획
## 569 폐지…일반
## 570 건물
## 571 허용
## 572 장애인단체,
## 573 인수위
## 574 면담
## 575 후
## 576 지하철
## 577 탑승
## 578 시위‥“열차
## 579 지연
## 580 없어”
## 581 전장연,
## 582 경복궁역
## 583 승강장에서
## 584 기자회견
## 585 전국장애인차별철폐연대,
## 586 경복궁역
## 587 승강장
## 588 기자회견
## 589 11번가,
## 590 전시회
## 591 티켓
## 592 판매
## 593 2배
## 594 급증
## 595 '경복궁
## 596 야간
## 597 관람'
## 598 단독
## 599 판매
## 600 봄맞이
## 601 경복궁
## 602 문
## 603 활짝…야간
## 604 관람·경회루
## 605 특별
## 606 관람
## 607 시작
## 608 24일
## 609 오전
## 610 10시부터
## 611 '경복궁
## 612 야간개장'
## 613 예매가능...요금·시간대는?
## 614 청와대는
## 615 역사적으로
## 616 경복궁
## 617 후원…"고종이
## 618 창덕궁
## 619 본떠
## 620 조성"
## 621 경복궁역
## 622 승강장에서
## 623 발언하는
## 624 전국장애인차별철폐연대
## 625 청와대는
## 626 역사적으로
## 627 경복궁
## 628 후원…"고종이
## 629 창덕궁
## 630 본떠
## 631 조성"
## 632 청와대는
## 633 처음부터
## 634 풍수가
## 635 이용됐다
## 636 [전형일의
## 637 사주이야기]
## 638 수궁터·칠궁·불상,
## 639 유적
## 640 즐비한
## 641 靑…대통령
## 642 기념관도
## 643 들어서나
## 644 '전장연
## 645 시민
## 646 볼모
## 647 삼아'
## 648 이준석
## 649 대신해
## 650 무릎꿇은
## 651 국힘
## 652 의원
## 653 [인터파크투어&팁]인형이
## 654 대신
## 655 떠나는
## 656 서울
## 657 여행
## 658 코스는
## 659 尹인수위
## 660 만난
## 661 전장연
## 662 "이준석
## 663 대표
## 664 사과하라"
## 665 출근길
## 666 장애인
## 667 이동권
## 668 보장
## 669 시위
## 670 '삭발
## 671 시위'로
## 672 전환
## 673 출근길
## 674 시위
## 675 멈추고
## 676 ‘삭발
## 677 투쟁’
## 678 돌입한
## 679 전장연…“이준석
## 680 사과”
## 681 재차
## 682 요구
## 683 독립문에서
## 684 호텔까지...
## 685 이
## 686 모든
## 687 걸
## 688 만든
## 689 남자의
## 690 정체
## 691 [서울을
## 692 그리는
## 693 어반스케쳐]
## 694 독립문에서
## 695 호텔까지...
## 696 이
## 697 모든
## 698 걸
## 699 만든
## 700 남자의
## 701 정체
## 702 [서울을
## 703 그리는
## 704 어반스케쳐]
## 705 [박종인의
## 706 땅의
## 707 歷史]
## 708 “선비가
## 709 절에
## 710 불을
## 711 질렀기로서니
## 712 수사는
## 713 왜
## 714 하는가!”
## 715 [칼럼]
## 716 청와대
## 717 이전과
## 718 흥선대원군의
## 719 경복궁(景福宮)<U+00A0>중건(重建)
## 720 [대통령실
## 721 용산
## 722 이전]
## 723 靑
## 724 시민공원
## 725 탈바꿈…尹
## 726 "5월
## 727 10일
## 728 모두
## 729 개방"
## 730 중기유통센터,
## 731 인천공항
## 732 경복궁면세점에
## 733 우수
## 734 中企
## 735 상품
## 736 입점
## 737 전장연,
## 738 30일부터
## 739 출근길
## 740 시위
## 741 중단하고
## 742 릴레이
## 743 삭발식
## 744 진행
## 745 전장연,
## 746 인수위와
## 747 면담
## 748 진행…경복궁역서는
## 749 기자회견
## 750 대통령실
## 751 들어설
## 752 용산은
## 753 길지?…학자들
## 754 "풍수는
## 755 생각하기
## 756 나름"
## 757 [B
## 758 tv
## 759 서울뉴스]
## 760 통의동
## 761 인수위
## 762 주변
## 763 교통
## 764 대란
## 765 "종로
## 766 주민만
## 767 피해"
## 768 전장연,
## 769 지하철시위
## 770 대신
## 771 삭발식…"4월
## 772 20일까지"
## 773 문체부
## 774 "靑
## 775 개방
## 776 시
## 777 2000억
## 778 경제효과"라는데…
## 779 황희
## 780 장관
## 781 "면밀
## 782 검토
## 783 필요"
## 784 지하철
## 785 시위
## 786 재개한
## 787 장애인단체…25일
## 788 인수위
## 789 있는
## 790 경복궁역
## 791 집회
## 792 "사과해"
## 793 VS
## 794 "사과안해"…깊어지는
## 795 전장연-이준석
## 796 갈등
## 797 경복궁에서
## 798 즐기는
## 799 밤
## 800 정취…내달부터
## 801 야간관람
## 802 시작
## 803 전경련
## 804 “대통령
## 805 집무실
## 806 용산
## 807 이전
## 808 시
## 809 관광수입
## 810 연
## 811 1조8000억”
## 812 오늘도
## 813 장애인단체
## 814 지하철
## 815 시위…“목소리
## 816 낼
## 817 권리”vs“민폐”
## 818 갑론을박
## 819 [속보]
## 820 인수위,
## 821 장애인단체
## 822 시위
## 823 현장
## 824 방문...3호선
## 825 경복궁역
## 826 마비
## 827 ‘이준석
## 828 규탄’
## 829 시위에서…“대신
## 830 사과”
## 831 무릎
## 832 꿇은
## 833 김예지
## 834 의원
## 835 靑
## 836 산책하던
## 837 文
## 838 눈에
## 839 띄어
## 840 보물
## 841 됐다…용모
## 842 수려
## 843 '미남불'
## 844 보니
## 845 '불통?'
## 846 '풍수?…'기피시설'된
## 847 청와대를
## 848 위한
## 849 변명[이기환의
## 850 Hi-story]
## 851 올
## 852 상반기
## 853 경복궁
## 854 야간
## 855 관람
## 856 진행
## 857 전장연,
## 858 '출근길
## 859 시위'
## 860 일단
## 861 중단...
## 862 "삭발
## 863 투쟁
## 864 전환"
## 865 인수위,
## 866 전장연
## 867 면담..이준석
## 868 사과
## 869 요청
## 870 "전달하겠다"
## 871 ‘전장연’
## 872 만난
## 873 인수위…
## 874 임이자
## 875 “이준석에게
## 876 내용
## 877 전달할
## 878 것”
## 879 장애인단체
## 880 지하철
## 881 시위
## 882 재개…오늘은
## 883 경복궁역서
## 884 집회
## 885 한국코러스,
## 886 바이오소재
## 887 화장품
## 888 경복궁면세점
## 889 출국장점
## 890 입점
## 891 장애인
## 892 지하철
## 893 시위
## 894 찬반…"선진국으로
## 895 가는
## 896 길"
## 897 vs
## 898 "출근길
## 899 불편"
## 900 1920년
## 901 제3회
## 902 퇴계선생
## 903 귀향길
## 904 재현행사
## 905 경복궁서
## 906 시작
## 907 오세훈
## 908 "청와대
## 909 개방되면
## 910 경복궁<U+2027>광화문
## 911 연결
## 912 시너지"
## 913 “코로나
## 914 잊고
## 915 봄
## 916 날씨
## 917 즐길래요”...올해
## 918 첫
## 919 경복궁
## 920 야간
## 921 개장에
## 922 시민들
## 923 북적
## 924 기독활동가들,
## 925 경복궁역
## 926 장애인
## 927 시위현장
## 928 연대
## 929 방문
## 930 용산도
## 931 종로도
## 932 집값
## 933 들썩…靑
## 934 집무실
## 935 이전의
## 936 경제학
## 937 시민
## 938 볼모
## 939 vs
## 940 이동권
## 941 보장…프레임에
## 942 갇힌
## 943 ‘장애인
## 944 지하철시위’
## 945 선비들
## 946 세상속으로
## 947 경복궁
## 948 야간관람
## 949 시작
## 950 경복궁
## 951 오늘부터
## 952 야간
## 953 개장...경회루
## 954 특별관람
## 955 재개
## 956 '744살
## 957 청와대
## 958 주목',
## 959 1000살
## 960 땐
## 961 어떤
## 962 역사를
## 963 목격할까[이기환의
## 964 흔적의
## 965 역사]
## 966 경복궁
## 967 봄맞이
## 968 야간개장
## 969 시작
## 970 아름다운
## 971 경복궁의
## 972 밤
## 973 [뉴시스Pic]
## 974 조명
## 975 켜진
## 976 경복궁
## 977 근정전으로
## 978 붐비는
## 979 경복궁의
## 980 밤
## 981 경복궁
## 982 야간
## 983 개장,
## 984 한복입고
## 985 찰칵
## 986 [뉴스1
## 987 PICK]봄맞이
## 988 경복궁
## 989 문
## 990 활짝…'야간
## 991 관람
## 992 시작'
## 993 지하철
## 994 시위
## 995 논쟁ing…
## 996 전장연
## 997 “이준석
## 998 혐오
## 999 양산”
## 1000 인권위,
## 1001 전장연과
## 1002 면담…"이준석
## 1003 발언
## 1004 영향
## 1005 등
## 1006 살펴볼
## 1007 것"
## 1008 경복궁
## 1009 봄철
## 1010 맞아
## 1011 야간
## 1012 개장...경회루
## 1013 특별관람
## 1014 재개
## 1015 인천국제공항
## 1016 경복궁면세점에
## 1017 '중기전용판매장'
## 1018 입점
## 1019 대통령
## 1020 집무실
## 1021 이전에
## 1022 경복궁
## 1023 앞
## 1024 개발은?…규제
## 1025 완화
## 1026 '글쎄'
## 1027 지하철시위
## 1028 대신
## 1029 삭발식…전장연,
## 1030 이준석에
## 1031 "갈라치기
## 1032 멈춰라"
## 1033 경복궁
## 1034 지키던
## 1035 ‘천록’,
## 1036 실감누리관에서
## 1037 만나요
## 1038 경회루
## 1039 내부
## 1040 특별관람
## 1041 재개,
## 1042 옛
## 1043 정취
## 1044 만끽
## 1045 경복궁역에서
## 1046 인수위
## 1047 만난
## 1048 장애인
## 1049 단체…
## 1050 ‘출근길
## 1051 시위’는
## 1052 그대로
## 1053 진행
## 1054 ‘통치’
## 1055 오명
## 1056 벗고,
## 1057 행정수도
## 1058 완성…세종시
## 1059 집무실은
## 1060 어떨까
## 1061 장애인
## 1062 출근길
## 1063 시위
## 1064 일시
## 1065 중단...
## 1066 경복궁역에서
## 1067 매일
## 1068 삭발
## 1069 전장연,
## 1070 릴레이
## 1071 삭발
## 1072 투쟁
## 1073 시작…출근길
## 1074 지하철
## 1075 타기는
## 1076 잠시
## 1077 멈춤
## 1078 인권위
## 1079 "이준석
## 1080 발언,
## 1081 면밀히
## 1082 살펴
## 1083 입장
## 1084 내겠다"
## 1085 "이준석
## 1086 일주일만
## 1087 휠체어
## 1088 타봐라"..전장연
## 1089 눈물의
## 1090 삭발식
## 1091 [영상]
## 1092 경복궁이
## 1093 열린
## 1094 밤
## 1095 전장연,
## 1096 경복궁역서
## 1097 출근길
## 1098 시위…
## 1099 김예지
## 1100 국민의힘
## 1101 의원도
## 1102 참석
## 1103 [뉴시스Pic]
## 1104 춘천
## 1105 '레고랜드'
## 1106 준공…레고로
## 1107 만든
## 1108 청와대·경복궁
## 1109 눈길
## 1110 [Opinion]
## 1111 한양의
## 1112 상징대로
## 1113 육조거리
## 1114 [미술/전시]
## 1115 오늘도
## 1116 경복궁역에서
## 1117 계속되는
## 1118 삭발
## 1119 [포토]전장연
## 1120 경복궁
## 1121 시위
## 1122 "봄꽃
## 1123 핀
## 1124 경복궁
## 1125 밤
## 1126 정취
## 1127 즐겨요"…내달
## 1128 1일부터
## 1129 야간관람
## 1130 [포토]인수위-전장연
## 1131 경복궁에서
## 1132 면담
## 1133 레고로
## 1134 재현된
## 1135 경복궁
## 1136 수문장
## 1137 교대식
## 1138 '靑
## 1139 개방효과
## 1140 2000억'
## 1141 산하기관
## 1142 보고에…황희
## 1143 "면밀검토
## 1144 필요"
## 1145 경복궁서측
## 1146 미집행
## 1147 주차장계획
## 1148 폐지
## 1149 오늘도
## 1150 3호선
## 1151 경복궁역
## 1152 막힙니다...장애인
## 1153 단체
## 1154 또
## 1155 출근길
## 1156 투쟁
## 1157 전장연,
## 1158 내일부터
## 1159 지하철
## 1160 시위
## 1161 멈추고
## 1162 삭발
## 1163 투쟁
## 1164 "봄꽃
## 1165 핀
## 1166 경복궁
## 1167 밤
## 1168 풍경
## 1169 즐겨요"...4월
## 1170 1일부터
## 1171 야간관람
## 1172 이준석
## 1173 '전장연'
## 1174 발언
## 1175 대신
## 1176 사과하며
## 1177 무릎
## 1178 꿇은
## 1179 국힘
## 1180 김예지
## 1181 전경련
## 1182 "대통령
## 1183 집무실
## 1184 용산이전시
## 1185 관광수입
## 1186 연
## 1187 1.8조"…尹
## 1188 지원사격?
## 1189 ‘삭발
## 1190 투쟁’
## 1191 장애인
## 1192 단체
## 1193 “이준석
## 1194 대표,
## 1195 1주일간
## 1196 함께
## 1197 휠체어
## 1198 타보자”
## 1199 전장연
## 1200 "공식
## 1201 사과
## 1202 안하면
## 1203 2호선도
## 1204 탄다"…이준석
## 1205 "사과
## 1206 안
## 1207 한다"
## 1208 11번가,
## 1209 '경복궁
## 1210 야간
## 1211 관람권'
## 1212 단독
## 1213 판매…팀버튼전
## 1214 50%
## 1215 할인
## 1216 혜택도
## 1217 이준석
## 1218 장애인
## 1219 비난에
## 1220 화들짝…전장연
## 1221 보듬기
## 1222 나선
## 1223 인수위
## 1224 700만개
## 1225 레고로
## 1226 만든
## 1227 경복궁·청와대·야구장…“와
## 1228 와,
## 1229 진짜
## 1230 신세계”
## 1231 조선
## 1232 마지막
## 1233 화사,
## 1234 동트는
## 1235 새벽에
## 1236 빼앗긴
## 1237 봄을
## 1238 그리다
## 1239 [김한들의
## 1240 그림
## 1241 아로새기기]
## 1242 청와대서
## 1243 K팝
## 1244 공연·전시
## 1245 본다
## 1246 시위대에
## 1247 무릎
## 1248 꿇은
## 1249 김예지
## 1250 의원
## 1251 "이준석
## 1252 대신
## 1253 사과"
## 1254 경복궁
## 1255 경회루
## 1256 찾은
## 1257 김현모
## 1258 문화재청장
## 1259 경복궁
## 1260 건청궁
## 1261 점검하는
## 1262 김현모
## 1263 문화재청장
## 1264 [포토]인수위원회-전국장애인차별철폐연대,
## 1265 경복궁역에서
## 1266 면담
## 1267 이준석
## 1268 ‘볼모’
## 1269 발언
## 1270 논란에
## 1271 김예지
## 1272 대신
## 1273 ‘무릎
## 1274 사과’
## 1275 햇빛
## 1276 좋네!~
## 1277 '봄
## 1278 꽃길'
## 1279 걸어볼까...궁궐~성북천까지
## 1280 "봄꽃
## 1281 핀
## 1282 경복궁에서
## 1283 야경
## 1284 즐기세요"
## 1285 경복궁
## 1286 후원이었던
## 1287 청와대,
## 1288 백성과
## 1289 임금
## 1290 만나는
## 1291 소통의
## 1292 마당이었다
## 1293 경복궁에서
## 1294 펼쳐진
## 1295 한복
## 1296 패션쇼
## 1297 '더
## 1298 한복'
## 1299 임이자
## 1300 간사,
## 1301 전장연과
## 1302 면담
## 1303 위해
## 1304 경복궁역
## 1305 방문
## 1306 '요정설'
## 1307 휩싸인
## 1308 이준석...
## 1309 시민들,
## 1310 '반혐오'로
## 1311 뭉치다
## 1312 20년
## 1313 전
## 1314 그날처럼…자신을
## 1315 묶은
## 1316 장애인은
## 1317 삭발했다
## 1318 대원군의
## 1319 경복궁
## 1320 중건이
## 1321 집무실
## 1322 이전에
## 1323 주는
## 1324 교훈
## 1325 /
## 1326 박민희
## 1327 [게시판]
## 1328 한국행정학회,
## 1329 내일
## 1330 경복궁서
## 1331 '국가유산포럼'
## 1332 전장연
## 1333 "이준석
## 1334 대표
## 1335 생일
## 1336 축하하러
## 1337 가자…100분
## 1338 토론
## 1339 제안"
## 1340 경복궁역에서
## 1341 출근길
## 1342 선전전
## 1343 벌이는
## 1344 전장연
## 1345 장애인
## 1346 이동권법
## 1347 통과됐는데,
## 1348 그들은
## 1349 왜
## 1350 시위를
## 1351 계속하나
## 1352 [이슈+]
## 1353 인수위
## 1354 ‘지하철
## 1355 시위’
## 1356 현장
## 1357 찾아…장애인
## 1358 단체
## 1359 “20년
## 1360 넘은
## 1361 요구안만
## 1362 또
## 1363 설명,
## 1364 실망”
## 1365 인수위,
## 1366 전장연
## 1367 면담…
## 1368 이준석과
## 1369 거리두기?
## 1370 장애인
## 1371 단체
## 1372 “출근길
## 1373 지하철
## 1374 시위
## 1375 잠정
## 1376 중단…
## 1377 릴레이
## 1378 삭발
## 1379 투쟁으로
## 1380 전환”
## 1381 "한복은
## 1382 우리
## 1383 옷"
## 1384 경복궁
## 1385 경회루서
## 1386 한복
## 1387 패션쇼
## 1388 [한국의전통色이야기
## 1389 5]
## 1390 '한국사'에
## 1391 기록된
## 1392 색(色)의
## 1393 의미
## 1394 경복궁역
## 1395 찾은
## 1396 김예지
## 1397 국민의힘
## 1398 의원
## 1399 [사진]
## 1400 경복궁의
## 1401 봄
## 1402 장애인을
## 1403 볼
## 1404 수
## 1405 없는
## 1406 나라
## 1407 대한민국,
## 1408 그
## 1409 이유
## 1410 인수위
## 1411 앞
## 1412 삭발
## 1413 투쟁,
## 1414 장애인의
## 1415 머리카락을
## 1416 자른
## 1417 이는
## 1418 누군가
## 1419 [영상]
## 1420 ‘권력의
## 1421 상징
## 1422 공간’
## 1423 청와대
## 1424 영욕의
## 1425 74년
## 1426 올봄
## 1427 여기가
## 1428 찐
## 1429 핫플!
## 1430 야간
## 1431 개장을
## 1432 시작한
## 1433 경복궁과
## 1434 창경궁
## 1435 대온실
## 1436 [르포]
## 1437 "상가나
## 1438 주택
## 1439 있나요"…
## 1440 벌써부터
## 1441 문의
## 1442 쇄도하는
## 1443 삼청동,
## 1444 매물
## 1445 거두는
## 1446 집주인들
## 1447 [오마이포토]
## 1448 '눈물의
## 1449 삭발'
## 1450 전장연
## 1451 대표...
## 1452 "이준석
## 1453 사과하라"
## 1454 3월의
## 1455 경복궁,
## 1456 우리나라
## 1457 전기
## 1458 역사의
## 1459 시작이었습니다
## 1460 "우리도
## 1461 지하철타고
## 1462 출근하고
## 1463 싶다"
## 1464 재개된
## 1465 장애인단체
## 1466 '출근길'
## 1467 시위
## 1468 [포켓이슈]
## 1469 K팝
## 1470 공연장으로
## 1471 재탄생?…청와대
## 1472 안팎에
## 1473 뭐가
## 1474 있기에
## 1475 경복궁역은
## 1476 지금…
## 1477 경복궁역에서
## 1478 인수위
## 1479 만난
## 1480 전장연…"원론적
## 1481 면담,
## 1482 실망스러워"
## 1483 이준석
## 1484 “전장연
## 1485 이제야
## 1486 시위
## 1487 방식
## 1488 바꿔…이게
## 1489 애초
## 1490 요구사항”
## 1491 전장연,
## 1492 내일부터
## 1493 지하철
## 1494 시위
## 1495 멈추고
## 1496 삭발투쟁
## 1497 돌입
## 1498 [김세곤의
## 1499 역사칼럼]전쟁과
## 1500 조약의
## 1501 한국
## 1502 근대사(60)
## 1503 4월
## 1504 1일부터
## 1505 '한복'
## 1506 입고
## 1507 가면
## 1508 경복궁
## 1509 야간
## 1510 관람
## 1511 무료
## 1512 청와대가
## 1513 떠난
## 1514 뒤,
## 1515 문화적
## 1516 놀
## 1517 터,
## 1518 예술적
## 1519 쉼터를
## 1520 만들자[기고]
## 1521 장애인단체에
## 1522 무릎
## 1523 꿇고
## 1524 사과한
## 1525 김예지
## 1526 의원의
## 1527 출근길…30분
## 1528 거리,
## 1529 1시간
## 1530 23분
## 1531 걸려
## 1532 이준석과
## 1533 선
## 1534 긋는
## 1535 尹
## 1536 인수위…
## 1537 “장애인
## 1538 권리
## 1539 관심,
## 1540 경청하러
## 1541 왔다”
## 1542 장애인단체
## 1543 ‘지하철
## 1544 시위’…정치권서도
## 1545 “시민볼모”“죄송”
## 1546 공방
## 1547 확산
## 1548 [최수문기자의
## 1549 트래블로그]
## 1550 청와대
## 1551 개방과
## 1552 경복궁
## 1553 제자리
## 1554 찾기
## 1555 [포토]전국장애인차별철폐연대,
## 1556 경복궁역에서
## 1557 기자회견
## 1558 [청와대
## 1559 개방]
## 1560 도심
## 1561 역사·문화
## 1562 관광벨트
## 1563 화룡점정…
## 1564 연계
## 1565 방안은?
## 1566 인수위,
## 1567 내일
## 1568 전장연
## 1569 출근길
## 1570 시위
## 1571 현장
## 1572 간다…"정책
## 1573 반영
## 1574 노력"(종합)
## 1575 인수위,
## 1576 경복궁역서
## 1577 전장연과
## 1578 면담
## 1579 전장연,
## 1580 내일부터
## 1581 지하철
## 1582 시위
## 1583 멈추고
## 1584 삭발
## 1585 투쟁
## 1586 "봄꽃
## 1587 핀
## 1588 경복궁
## 1589 밤
## 1590 풍경
## 1591 즐겨요"...4월
## 1592 1일부터
## 1593 야간관람
## 1594 이준석
## 1595 '전장연'
## 1596 발언
## 1597 대신
## 1598 사과하며
## 1599 무릎
## 1600 꿇은
## 1601 국힘
## 1602 김예지
## 1603 전경련
## 1604 "대통령
## 1605 집무실
## 1606 용산이전시
## 1607 관광수입
## 1608 연
## 1609 1.8조"…尹
## 1610 지원사격?
## 1611 인권위,
## 1612 ‘삭발투쟁’
## 1613 전장연
## 1614 지하철
## 1615 시위
## 1616 현장
## 1617 방문
## 1618 ‘삭발
## 1619 투쟁’
## 1620 장애인
## 1621 단체
## 1622 “이준석
## 1623 대표,
## 1624 1주일간
## 1625 함께
## 1626 휠체어
## 1627 타보자”
## 1628 중기유통센터,
## 1629 경복궁면세점
## 1630 내
## 1631 중기
## 1632 전용
## 1633 판매장
## 1634 마련
## 1635 전장연
## 1636 "공식
## 1637 사과
## 1638 안하면
## 1639 2호선도
## 1640 탄다"…이준석
## 1641 "사과
## 1642 안
## 1643 한다"
## 1644 ‘靑
## 1645 개방시
## 1646 연
## 1647 2000억
## 1648 경제효과’
## 1649 분석에…황희
## 1650 “면밀검토
## 1651 필요”
## 1652 ‘靑
## 1653 개방시
## 1654 연
## 1655 2000억
## 1656 경제효과’
## 1657 분석에…황희
## 1658 “면밀검토
## 1659 필요”
## 1660 11번가,
## 1661 '경복궁
## 1662 야간
## 1663 관람권'
## 1664 단독
## 1665 판매…팀버튼전
## 1666 50%
## 1667 할인
## 1668 혜택도
## 1669 이준석
## 1670 장애인
## 1671 비난에
## 1672 화들짝…전장연
## 1673 보듬기
## 1674 나선
## 1675 인수위
## 1676 700만개
## 1677 레고로
## 1678 만든
## 1679 경복궁·청와대·야구장…“와
## 1680 와,
## 1681 진짜
## 1682 신세계”
## 1683 조선
## 1684 마지막
## 1685 화사,
## 1686 동트는
## 1687 새벽에
## 1688 빼앗긴
## 1689 봄을
## 1690 그리다
## 1691 [김한들의
## 1692 그림
## 1693 아로새기기]
## 1694 청와대서
## 1695 K팝
## 1696 공연·전시
## 1697 본다
## 1698 시위대에
## 1699 무릎
## 1700 꿇은
## 1701 김예지
## 1702 의원
## 1703 "이준석
## 1704 대신
## 1705 사과"
## 1706 경복궁
## 1707 경회루
## 1708 찾은
## 1709 김현모
## 1710 문화재청장
## 1711 경복궁
## 1712 야간
## 1713 관람
## 1714 가능해진다
## 1715 경복궁
## 1716 건청궁
## 1717 점검하는
## 1718 김현모
## 1719 문화재청장
## 1720 경복궁
## 1721 경회루
## 1722 찾은
## 1723 김현모
## 1724 문화재청장
## 1725 경복궁
## 1726 야간
## 1727 관람
## 1728 가능해진다
## 1729 경복궁
## 1730 건청궁
## 1731 점검하는
## 1732 김현모
## 1733 문화재청장
## 1734 [포토]인수위원회-전국장애인차별철폐연대,
## 1735 경복궁역에서
## 1736 면담
## 1737 '청와대
## 1738 이전'
## 1739 경복궁
## 1740 옆
## 1741 주차장
## 1742 부지,
## 1743 일반
## 1744 건물
## 1745 허용
## 1746 “靑
## 1747 개방효과
## 1748 연
## 1749 2천억?
## 1750 청남대꼴
## 1751 날수도”…황희
## 1752 “검토
## 1753 필요”
## 1754 이준석
## 1755 ‘볼모’
## 1756 발언
## 1757 논란에
## 1758 김예지
## 1759 대신
## 1760 ‘무릎
## 1761 사과’
## 1762 11번가,
## 1763 전시
## 1764 티켓
## 1765 판매
## 1766 급증...'경복궁
## 1767 야간
## 1768 관람'
## 1769 단독
## 1770 판매
## 1771 '민들레처럼'
## 1772 부르며
## 1773 쇠사슬
## 1774 어깨에
## 1775 걸고...전장연
## 1776 '눈물의
## 1777 삭발식'
## 1778 전경련
## 1779 “대통령
## 1780 집무실
## 1781 용산이전시
## 1782 관광수입
## 1783 연
## 1784 1.8조”
## 1785 '민들레처럼'
## 1786 부르며
## 1787 쇠사슬
## 1788 어깨에
## 1789 걸고...전장연
## 1790 '눈물의
## 1791 삭발식'
## 1792 전경련
## 1793 “대통령
## 1794 집무실
## 1795 용산이전시
## 1796 관광수입
## 1797 연
## 1798 1.8조”
## 1799 경복궁
## 1800 경회루
## 1801 현장점검
## 1802 나선
## 1803 김현모
## 1804 문화재청장
## 1805 햇빛
## 1806 좋네!~
## 1807 '봄
## 1808 꽃길'
## 1809 걸어볼까...궁궐~성북천까지
## 1810 서울시,
## 1811 10년
## 1812 표류한
## 1813 경복궁
## 1814 서측
## 1815 주차장
## 1816 건설
## 1817 계획
## 1818 폐지
## 1819 봄이
## 1820 찾아온
## 1821 경복궁에서
## 1822 달맞이
## 1823 해볼까…4월부터
## 1824 야간
## 1825 개방
## 1826 "자긍심
## 1827 키워주는
## 1828 곳으로
## 1829 재탄생"…청와대서
## 1830 K팝
## 1831 공연
## 1832 열릴듯
## 1833 "봄꽃
## 1834 핀
## 1835 경복궁에서
## 1836 야경
## 1837 즐기세요"
## 1838 경복궁역
## 1839 승강장에서
## 1840 기자회견
## 1841 하는
## 1842 전장연
## 1843 회원들
## 1844 경복궁
## 1845 후원이었던
## 1846 청와대,
## 1847 백성과
## 1848 임금
## 1849 만나는
## 1850 소통의
## 1851 마당이었다
## 1852 경복궁역
## 1853 승강장에서
## 1854 기자회견
## 1855 하는
## 1856 전장연
## 1857 회원들
## 1858 경복궁
## 1859 후원이었던
## 1860 청와대,
## 1861 백성과
## 1862 임금
## 1863 만나는
## 1864 소통의
## 1865 마당이었다
## 1866 청와대
## 1867 인근
## 1868 '경복궁서측'
## 1869 장기
## 1870 미집행
## 1871 주차장계획
## 1872 폐지
## 1873 [포토]전장연,
## 1874 경복궁역
## 1875 삭발
## 1876 투쟁
## 1877 경복궁에서
## 1878 펼쳐진
## 1879 한복
## 1880 패션쇼
## 1881 '더
## 1882 한복'
## 1883 임이자
## 1884 간사,
## 1885 전장연과
## 1886 면담
## 1887 위해
## 1888 경복궁역
## 1889 방문
## 1890 '요정설'
## 1891 휩싸인
## 1892 이준석...
## 1893 시민들,
## 1894 '반혐오'로
## 1895 뭉치다
## 1896 [오마이포토]
## 1897 인수위
## 1898 임이자
## 1899 간사,
## 1900 경복궁역서
## 1901 전장연과
## 1902 면담
## 1903 황희
## 1904 "靑
## 1905 개방
## 1906 경제효과
## 1907 2000억원?
## 1908 면밀한
## 1909 검토
## 1910 필요"
## 1911 이준석,
## 1912 전장연
## 1913 '2호선
## 1914 시위'
## 1915 예고에
## 1916 "사과할
## 1917 일
## 1918 없어"
## 1919 경복궁역서
## 1920 기자회견
## 1921 진행하는
## 1922 전장연
## 1923 황희
## 1924 "靑
## 1925 개방
## 1926 경제효과
## 1927 2000억원?
## 1928 면밀한
## 1929 검토
## 1930 필요"
## 1931 이준석,
## 1932 전장연
## 1933 '2호선
## 1934 시위'
## 1935 예고에
## 1936 "사과할
## 1937 일
## 1938 없어"
## 1939 20년
## 1940 전
## 1941 그날처럼…자신을
## 1942 묶은
## 1943 장애인은
## 1944 삭발했다
## 1945 대원군의
## 1946 경복궁
## 1947 중건이
## 1948 집무실
## 1949 이전에
## 1950 주는
## 1951 교훈
## 1952 /
## 1953 박민희
## 1954 [게시판]
## 1955 한국행정학회,
## 1956 내일
## 1957 경복궁서
## 1958 '국가유산포럼'
## 1959 전장연
## 1960 "이준석
## 1961 대표
## 1962 생일
## 1963 축하하러
## 1964 가자…100분
## 1965 토론
## 1966 제안"
## 1967 경복궁역에서
## 1968 출근길
## 1969 선전전
## 1970 벌이는
## 1971 전장연
## 1972 장애인
## 1973 이동권법
## 1974 통과됐는데,
## 1975 그들은
## 1976 왜
## 1977 시위를
## 1978 계속하나
## 1979 [이슈+]
## 1980 경복궁
## 1981 야간
## 1982 관람
## 1983 4월부터…봄밤의
## 1984 꽃대궐
## 1985 즐기세요
## 1986 인수위
## 1987 ‘지하철
## 1988 시위’
## 1989 현장
## 1990 찾아…장애인
## 1991 단체
## 1992 “20년
## 1993 넘은
## 1994 요구안만
## 1995 또
## 1996 설명,
## 1997 실망”
## 1998 인수위,
## 1999 전장연
## 2000 면담…
## 2001 이준석과
## 2002 거리두기?
## 2003 11번가,
## 2004 전시회
## 2005 티켓
## 2006 판매
## 2007 급증…'경복궁
## 2008 야간
## 2009 관람'
## 2010 단독
## 2011 판매
## 2012 레고로
## 2013 재현된
## 2014 경복궁
## 2015 중기유통센터,
## 2016 인천국제공항
## 2017 경복궁면세점에
## 2018 중기
## 2019 전용
## 2020 판매장
## 2021 입점
## 2022 봄꽃
## 2023 만개한
## 2024 경복궁
## 2025 야간
## 2026 관람
## 2027 즐겨봐요
## 2028 [포토]
## 2029 전장연,
## 2030 경복궁역
## 2031 삭발
## 2032 투쟁
## 2033 장애인
## 2034 단체
## 2035 “출근길
## 2036 지하철
## 2037 시위
## 2038 잠정
## 2039 중단…
## 2040 릴레이
## 2041 삭발
## 2042 투쟁으로
## 2043 전환”
## 2044 인수위
## 2045 만난
## 2046 전장연
## 2047 "삭발
## 2048 시위로
## 2049 전환"…
## 2050 마지막
## 2051 출근길
## 2052 시위에
## 2053 시민
## 2054 박수도
## 2055 "한복은
## 2056 우리
## 2057 옷"
## 2058 경복궁
## 2059 경회루서
## 2060 한복
## 2061 패션쇼
## 2062 "봄꽃
## 2063 핀
## 2064 경복궁
## 2065 밤
## 2066 풍경
## 2067 즐겨요"...4월
## 2068 1일부터
## 2069 야간관람
## 2070 인수위
## 2071 만난
## 2072 전장연
## 2073 "삭발
## 2074 시위로
## 2075 전환"…
## 2076 마지막
## 2077 출근길
## 2078 시위에
## 2079 시민
## 2080 박수도
## 2081 "한복은
## 2082 우리
## 2083 옷"
## 2084 경복궁
## 2085 경회루서
## 2086 한복
## 2087 패션쇼
## 2088 [포토]인수위-전장연
## 2089 경복궁역에서
## 2090 면담
## 2091 김예지
## 2092 의원,
## 2093 지하철
## 2094 시위서
## 2095 무릎
## 2096 꿇고
## 2097 “정치권
## 2098 대신해
## 2099 사과”
## 2100 [한국의전통色이야기
## 2101 5]
## 2102 '한국사'에
## 2103 기록된
## 2104 색(色)의
## 2105 의미
## 2106 경복궁역
## 2107 찾은
## 2108 김예지
## 2109 국민의힘
## 2110 의원
## 2111 레고로
## 2112 재현된
## 2113 청와대와
## 2114 경복궁
## 2115 [사진]
## 2116 경복궁의
## 2117 봄
## 2118 장애인을
## 2119 볼
## 2120 수
## 2121 없는
## 2122 나라
## 2123 대한민국,
## 2124 그
## 2125 이유
## 2126 [사진]
## 2127 경복궁의
## 2128 봄
## 2129 경복궁
## 2130 상반기
## 2131 야간
## 2132 관람경회루
## 2133 특별관람
## 2134 시작…내달
## 2135 1일
## 2136 개최
## 2137 장애인을
## 2138 볼
## 2139 수
## 2140 없는
## 2141 나라
## 2142 대한민국,
## 2143 그
## 2144 이유
## 2145 인수위
## 2146 앞
## 2147 삭발
## 2148 투쟁,
## 2149 장애인의
## 2150 머리카락을
## 2151 자른
## 2152 이는
## 2153 누군가
## 2154 '靑
## 2155 개방
## 2156 시
## 2157 연
## 2158 2000억
## 2159 경제효과'
## 2160 분석에…황희
## 2161 "면밀
## 2162 검토
## 2163 필요"
## 2164 [영상]
## 2165 ‘권력의
## 2166 상징
## 2167 공간’
## 2168 청와대
## 2169 영욕의
## 2170 74년
## 2171 지하철시위
## 2172 대신
## 2173 삭발식…전장연,
## 2174 이준석에
## 2175 "갈라치기
## 2176 멈춰라"
## 2177 전경련
## 2178 "대통령
## 2179 집무실
## 2180 용산이전시
## 2181 관광수입
## 2182 연
## 2183 1.8조"…尹
## 2184 지원사격?
## 2185 올봄
## 2186 여기가
## 2187 찐
## 2188 핫플!
## 2189 야간
## 2190 개장을
## 2191 시작한
## 2192 경복궁과
## 2193 창경궁
## 2194 대온실
## 2195 [르포]
## 2196 "상가나
## 2197 주택
## 2198 있나요"…
## 2199 벌써부터
## 2200 문의
## 2201 쇄도하는
## 2202 삼청동,
## 2203 매물
## 2204 거두는
## 2205 집주인들
## 2206 전경련
## 2207 "대통령
## 2208 집무실
## 2209 용산이전시
## 2210 관광수입
## 2211 연
## 2212 1.8조"…尹
## 2213 지원사격?
## 2214 올봄
## 2215 여기가
## 2216 찐
## 2217 핫플!
## 2218 야간
## 2219 개장을
## 2220 시작한
## 2221 경복궁과
## 2222 창경궁
## 2223 대온실
## 2224 "봄꽃과
## 2225 함께..."
## 2226 돌아온
## 2227 경복궁
## 2228 야간
## 2229 관람
## 2230 [르포]
## 2231 "상가나
## 2232 주택
## 2233 있나요"…
## 2234 벌써부터
## 2235 문의
## 2236 쇄도하는
## 2237 삼청동,
## 2238 매물
## 2239 거두는
## 2240 집주인들
## 2241 [르포]
## 2242 전장연
## 2243 "왜
## 2244 죄
## 2245 없는
## 2246 사람이
## 2247 무릎
## 2248 꿇어야
## 2249 하나"
## 2250 이준석
## 2251 '볼모'
## 2252 발언
## 2253 분노
## 2254 [오마이포토]
## 2255 '눈물의
## 2256 삭발'
## 2257 전장연
## 2258 대표...
## 2259 "이준석
## 2260 사과하라"
## 2261 3월의
## 2262 경복궁,
## 2263 우리나라
## 2264 전기
## 2265 역사의
## 2266 시작이었습니다
## 2267 "우리도
## 2268 지하철타고
## 2269 출근하고
## 2270 싶다"
## 2271 재개된
## 2272 장애인단체
## 2273 '출근길'
## 2274 시위
## 2275 [포켓이슈]
## 2276 K팝
## 2277 공연장으로
## 2278 재탄생?…청와대
## 2279 안팎에
## 2280 뭐가
## 2281 있기에
## 2282 경복궁
## 2283 서
## 2284 측
## 2285 주차장
## 2286 계획
## 2287 폐지…건축물
## 2288 건립
## 2289 추진
## 2290 경복궁
## 2291 한경연
## 2292 “대통령
## 2293 집무실
## 2294 이전으로
## 2295 매년
## 2296 관광수입
## 2297 1.8조원”
## 2298 눈쌓인
## 2299 경복궁
## 2300 [천지포토]
## 2301 설날
## 2302 경복궁
## 2303 찾은
## 2304 나들이객
## 2305 설날
## 2306 경복궁...
## 2307 '북적북적'
## 2308 설날
## 2309 경복궁
## 2310 '고운
## 2311 한복입고'
## 2312 설날,
## 2313 붐비는
## 2314 경복궁
## 2315 한경연
## 2316 “대통령
## 2317 집무실
## 2318 이전으로
## 2319 매년
## 2320 관광수입
## 2321 1.8조원”
## 2322 눈쌓인
## 2323 경복궁
## 2324 설
## 2325 연휴,
## 2326 경복궁
## 2327 찾은
## 2328 시민들
## 2329 [설날]
## 2330 경복궁
## 2331 찾은
## 2332 관람객들
## 2333 “버스
## 2334 뒤꽁무니만
## 2335 바라보던
## 2336 지난날
## 2337 스쳐”
## 2338 ‘靑
## 2339 개방
## 2340 시
## 2341 연
## 2342 2000억
## 2343 경제
## 2344 효과’
## 2345 분석…황희
## 2346 장관
## 2347 “면밀
## 2348 검토
## 2349 필요”
## 2350 눈
## 2351 내린
## 2352 경복궁
## 2353 설날
## 2354 경복궁...
## 2355 '북적북적'
## 2356 설날
## 2357 경복궁
## 2358 '고운
## 2359 한복입고'
## 2360 설날,
## 2361 붐비는
## 2362 경복궁
## 2363 한경연
## 2364 “대통령
## 2365 집무실
## 2366 이전으로
## 2367 매년
## 2368 관광수입
## 2369 1.8조원”
## 2370 눈쌓인
## 2371 경복궁
## 2372 설
## 2373 연휴,
## 2374 경복궁
## 2375 찾은
## 2376 시민들
## 2377 [설날]
## 2378 경복궁
## 2379 찾은
## 2380 관람객들
## 2381 “버스
## 2382 뒤꽁무니만
## 2383 바라보던
## 2384 지난날
## 2385 스쳐”
## 2386 ‘靑
## 2387 개방
## 2388 시
## 2389 연
## 2390 2000억
## 2391 경제
## 2392 효과’
## 2393 분석…황희
## 2394 장관
## 2395 “면밀
## 2396 검토
## 2397 필요”
## 2398 설날,
## 2399 붐비는
## 2400 경복궁
## 2401 한경연
## 2402 “대통령
## 2403 집무실
## 2404 이전으로
## 2405 매년
## 2406 관광수입
## 2407 1.8조원”
## 2408 눈쌓인
## 2409 경복궁
## 2410 설
## 2411 연휴,
## 2412 경복궁
## 2413 찾은
## 2414 시민들
## 2415 [설날]
## 2416 경복궁
## 2417 찾은
## 2418 관람객들
## 2419 “버스
## 2420 뒤꽁무니만
## 2421 바라보던
## 2422 지난날
## 2423 스쳐”
## 2424 ‘靑
## 2425 개방
## 2426 시
## 2427 연
## 2428 2000억
## 2429 경제
## 2430 효과’
## 2431 분석…황희
## 2432 장관
## 2433 “면밀
## 2434 검토
## 2435 필요”
## 2436 CJ
## 2437 온스타일서
## 2438 30년
## 2439 전통
## 2440 경복궁
## 2441 ‘사골
## 2442 고기곰탕’,
## 2443 앵콜
## 2444 방송
## 2445 진행
## 2446 [포토뉴스]
## 2447 설날
## 2448 앞두고
## 2449 관람객
## 2450 방문
## 2451 잦은
## 2452 경복궁
## 2453 장애인차별철폐연대와
## 2454 만난
## 2455 인수위
## 2456 눈쌓인
## 2457 경복궁
## 2458 설
## 2459 연휴,
## 2460 경복궁
## 2461 찾은
## 2462 시민들
## 2463 [설날]
## 2464 경복궁
## 2465 찾은
## 2466 관람객들
## 2467 “버스
## 2468 뒤꽁무니만
## 2469 바라보던
## 2470 지난날
## 2471 스쳐”
## 2472 ‘靑
## 2473 개방
## 2474 시
## 2475 연
## 2476 2000억
## 2477 경제
## 2478 효과’
## 2479 분석…황희
## 2480 장관
## 2481 “면밀
## 2482 검토
## 2483 필요”
## 2484 CJ
## 2485 온스타일서
## 2486 30년
## 2487 전통
## 2488 경복궁
## 2489 ‘사골
## 2490 고기곰탕’,
## 2491 앵콜
## 2492 방송
## 2493 진행
## 2494 [포토뉴스]
## 2495 설날
## 2496 앞두고
## 2497 관람객
## 2498 방문
## 2499 잦은
## 2500 경복궁
## 2501 장애인차별철폐연대와
## 2502 만난
## 2503 인수위
## 2504 '경복궁
## 2505 발굴·복원
## 2506 30주년
## 2507 기념
## 2508 특별전'…만신창이
## 2509 된
## 2510 경복궁이
## 2511 원래의
## 2512 모습을
## 2513 되찾아가기까지
## 2514 "여당
## 2515 대표될
## 2516 분이
## 2517 개인의견?
## 2518 말이
## 2519 안돼"
## 2520 이준석
## 2521 해명도
## 2522 질타
## 2523 장애인차별철폐연대와
## 2524 만난
## 2525 인수위
## 2526 '경복궁
## 2527 발굴·복원
## 2528 30주년
## 2529 기념
## 2530 특별전'…만신창이
## 2531 된
## 2532 경복궁이
## 2533 원래의
## 2534 모습을
## 2535 되찾아가기까지
## 2536 "여당
## 2537 대표될
## 2538 분이
## 2539 개인의견?
## 2540 말이
## 2541 안돼"
## 2542 이준석
## 2543 해명도
## 2544 질타
## 2545 ‘별’처럼
## 2546 쏟아지는
## 2547 그
## 2548 수많은
## 2549 이름들…
## 2550 아픔의
## 2551 역사
## 2552 품은
## 2553 경복궁
## 2554 되살리다
## 2555 ‘용산
## 2556 이전’
## 2557 예비비
## 2558 의결에도,
## 2559 취임
## 2560 첫날
## 2561 출근
## 2562 무산
## 2563 아픈
## 2564 역사
## 2565 간직한
## 2566 경복궁,
## 2567 새로운
## 2568 봄을
## 2569 기다리며
## 2570 한경연
## 2571 "대통령
## 2572 집무실
## 2573 용산
## 2574 가면
## 2575 GDP
## 2576 최대
## 2577 3.3조
## 2578 증가"
## 2579 [J네트워크]
## 2580 경복궁
## 2581 복원
## 2582 30주년
## 2583 [시청자브리핑
## 2584 시시콜콜]
## 2585 조선의
## 2586 '법궁'
## 2587 경복궁
## 2588 ,
## 2589 그런데
## 2590 '법궁'이
## 2591 뭐예요?
## 2592 경복궁
## 2593 칠궁(七宮)…왕의
## 2594 어머니를
## 2595 모신
## 2596 곳
## 2597 경복궁
## 2598 칠궁(七宮)…왕의
## 2599 어머니를
## 2600 모신
## 2601 곳
## 2602 [사진]
## 2603 겨울왕국
## 2604 된
## 2605 경복궁
## 2606 장애인
## 2607 시위
## 2608 현장
## 2609 찾은
## 2610 인수위…시험대
## 2611 오른
## 2612 이준석
## 2613 리더십
## 2614 [모멘트]
## 2615 경복궁은
## 2616 하얀
## 2617 세상
## 2618 흰
## 2619 눈
## 2620 쌓인
## 2621 경복궁
## 2622 흰옷
## 2623 입은
## 2624 경복궁
## 2625 경복궁
## 2626 거니는
## 2627 왕과
## 2628 왕비
## 2629 하얀
## 2630 눈
## 2631 쌓인
## 2632 경복궁
## 2633 이동하는
## 2634 경복궁
## 2635 수문장들
## 2636 눈내리는
## 2637 경복궁,
## 2638 수문장
## 2639 교대식
## 2640 일제강점기때
## 2641 경복궁
## 2642 뒤에
## 2643 총독
## 2644 관사
## 2645 지으며
## 2646 ‘통치자의
## 2647 공간’으로
## 2648 부상
## 2649 이준석이
## 2650 쏘아올린
## 2651 혐오의
## 2652 정치,
## 2653 지하철은
## 2654 사과·연대의
## 2655 장
## 2656 됐다
## 2657 대통령의
## 2658 '15분
## 2659 출근길',
## 2660 시민에겐
## 2661 '30분
## 2662 지각길'
## 2663 대통령의
## 2664 '15분
## 2665 출근길',
## 2666 시민에겐
## 2667 '30분
## 2668 지각길'
## 2669 74년만에
## 2670 막내리는
## 2671 靑시대…
## 2672 공원
## 2673 만들고
## 2674 등산로
## 2675 국민에
## 2676 개방
## 2677 오세훈
## 2678 "청와대
## 2679 개방,
## 2680 광화문광장까지
## 2681 시너지
## 2682 생길
## 2683 것"
## 2684 청와대,
## 2685 시민공원
## 2686 된다…尹
## 2687 "5월10일
## 2688 개방,
## 2689 국민께
## 2690 돌려드릴
## 2691 것"
## 2692 11번가
## 2693 '경복궁
## 2694 야간
## 2695 관람'
## 2696 단독
## 2697 판매…전시회
## 2698 티켓
## 2699 판매
## 2700 급증
## 2701 다시
## 2702 ‘출근길
## 2703 지하철’
## 2704 타는
## 2705 장애인들…
## 2706 “아무것도
## 2707 바뀌지
## 2708 않았다”
## 2709 “탈시설
## 2710 폐쇄
## 2711 법안
## 2712 철회하라”
## 2713 [쿡정치
## 2714 포토]
## 2715 경복궁,
## 2716 상반기
## 2717 '야간
## 2718 관람<U+2219>경회루
## 2719 특별관람'
## 2720 시작
## 2721 [기고]
## 2722 청와대
## 2723 역사속으로
## 2724 사학자-도시공학자-건축가가
## 2725 본
## 2726 ‘대통령
## 2727 집무실
## 2728 용산
## 2729 이전’
## 2730 사학자-도시공학자-건축가가
## 2731 본
## 2732 ‘대통령
## 2733 집무실
## 2734 용산
## 2735 이전’
## 2736 11번가,
## 2737 전시회
## 2738 티켓
## 2739 판매
## 2740 2배↑…‘경복궁
## 2741 야간
## 2742 관람’
## 2743 단독
## 2744 판매
## 2745 [역사
## 2746 속
## 2747 오늘]
## 2748 청와대,
## 2749 푸른
## 2750 지붕의
## 2751 비밀
## 2752 장애인단체
## 2753 시위,
## 2754 3호선
## 2755 경복궁역~4호선
## 2756 혜화역
## 2757 이동
## 2758 '이준석
## 2759 반응은?'
## 2760 장애계
## 2761 투쟁에
## 2762 응답한
## 2763 인수위?
## 2764 “실망
## 2765 유감”
## 2766 전장연
## 2767 경복궁역
## 2768 시위,
## 2769 면담
## 2770 위해
## 2771 이동하는
## 2772 임이자
## 2773 인수위
## 2774 사회복지분과
## 2775 간사
## 2776 4월
## 2777 서울
## 2778 궁궐은
## 2779 '꽃대궐,
## 2780 꽃천지'
## 2781 광화문
## 2782 앞
## 2783 '육조거리'로
## 2784 살펴본
## 2785 조선시대
## 2786 관청과
## 2787 관원
## 2788 생활
## 2789 74년만에
## 2790 막내리는
## 2791 靑시대…공원
## 2792 만들고
## 2793 등산로
## 2794 국민에
## 2795 개방
## 2796 13년
## 2797 표류
## 2798 ‘서울역
## 2799 북부
## 2800 철도
## 2801 유휴지’…최고
## 2802 38층
## 2803 빌딩
## 2804 들어선다
## 2805 새
## 2806 대통령
## 2807 집무실
## 2808 앞마당은
## 2809 어디…광화문은
## 2810 새
## 2811 광장~경복궁
## 2812 연계,
## 2813 용산은
## 2814 용산공원에
## 2815 안착
## 2816 '경회루
## 2817 특별관람'
## 2818 오늘
## 2819 시작···사전예약제
## 2820 운영
## 2821 한복
## 2822 입고
## 2823 경복궁
## 2824 거쳐
## 2825 청와대까지…일대
## 2826 상권
## 2827 활성화
## 2828 기대
## 2829 청와대
## 2830 부지에
## 2831 '국립인류학·민족학박물관'을
## 2832 짓자
## 2833 [기고]
## 2834 장애인단체
## 2835 지하철
## 2836 시위
## 2837 재개…오늘은
## 2838 경복궁역서
## 2839 집회
## 2840 임이자,
## 2841 전장연
## 2842 출근길
## 2843 시위
## 2844 현장
## 2845 방문…"요구사항
## 2846 검토할
## 2847 것"
## 2848 지하철시위
## 2849 대신
## 2850 삭발식…전장연,
## 2851 이준석에
## 2852 "갈라치기
## 2853 멈춰라"
## 2854 청와대
## 2855 900년史...고려
## 2856 南京
## 2857 궁궐로
## 2858 시작,
## 2859 조선시대엔
## 2860 경복궁
## 2861 후원
## 2862 대통령
## 2863 선거일,
## 2864 경복궁
## 2865 나들이
## 2866 이준석의
## 2867 혐오정치,
## 2868 장애인만의
## 2869 분노
## 2870 아니다
## 2871 [팩트체크]
## 2872 청와대
## 2873 주변
## 2874 개발
## 2875 어디까지
## 2876 가능할까
## 2877 이준석
## 2878 "지하철
## 2879 시위는
## 2880 시민
## 2881 볼모
## 2882 잡는
## 2883 부조리"…
## 2884 장애인들
## 2885 "혐오정치
## 2886 중단하라"
## 2887 [데스크칼럼]
## 2888 천년의
## 2889 끝에선
## 2890 ‘청와’…대통령실
## 2891 새
## 2892 이름은
## 2893 文과
## 2894 회동
## 2895 무산된
## 2896 날…尹,
## 2897 김치찌개
## 2898 먹고
## 2899 경복궁역
## 2900 앞
## 2901 산책
## 2902 [포토버스]
## 2903 대통령
## 2904 선거일
## 2905 경복궁
## 2906 찾은
## 2907 시민들
## 2908 [르포]"땅
## 2909 파면
## 2910 문화재인데
## 2911 개발은
## 2912 무슨?"..靑
## 2913 이전에도
## 2914 '담담'한
## 2915 동네
## 2916 권력의
## 2917 상징
## 2918 '靑'
## 2919 역사
## 2920 속으로
## 2921 밤
## 2922 깊을수록
## 2923 진해지는
## 2924 벚꽃
## 2925 가득한
## 2926 고궁의
## 2927 정취
## 2928 한국코러스,
## 2929 ‘뷰티오’
## 2930 경복궁
## 2931 면세점
## 2932 입점
## 2933 윤석열
## 2934 당선인,
## 2935 靑
## 2936 '국방부
## 2937 청사'
## 2938 이전
## 2939 발표…기자회견
## 2940 질의응답
## 2941 [영상]
## 2942 경북의맛
## 2943 안동
## 2944 육회비빔밥
## 2945 70년
## 2946 권력의
## 2947 정점
## 2948 청와대…마지막
## 2949 주인
## 2950 떠나면
## 2951 국민
## 2952 품으로
## 2953 이방원은
## 2954 한양과
## 2955 경복궁이
## 2956 꺼림칙했다
## 2957 [김종성의
## 2958 사극으로
## 2959 역사읽기]
## 2960 대통령
## 2961 집무실
## 2962 용산으로
## 2963 이전을
## 2964 찬성...“세계
## 2965 으뜸
## 2966 나라로
## 2967 가는
## 2968 길”
## 2969 이준석
## 2970 갈라치기에
## 2971 국민의힘
## 2972 내홍
## 2973 조짐
## 2974 전장연과의
## 2975 토론
## 2976 무산,
## 2977 이준석
## 2978 측
## 2979 "MBC의
## 2980 갑질"
## 2981 대선
## 2982 투표일
## 2983 경복궁
## 2984 나들이
## 2985 나온
## 2986 시민들
## 2987 집무실
## 2988 떠나가는
## 2989 청와대…"고도제한
## 2990 해지
## 2991 가능성은
## 2992 적어"
## 2993 "봄꽃
## 2994 핀
## 2995 경복궁의
## 2996 밤"…다음달
## 2997 1일부터
## 2998 야간관람
## 2999 중소기업유통센터,
## 3000 민간플랫폼과
## 3001 업무협약
## 3002 통해
## 3003 소상공인
## 3004 구독경제
## 3005 시장진출
## 3006 지원
## 3007 "봄꽃
## 3008 핀
## 3009 경복궁의
## 3010 밤"…다음달
## 3011 1일부터
## 3012 야간관람
## 3013 중소기업유통센터,
## 3014 민간플랫폼과
## 3015 업무협약
## 3016 통해
## 3017 소상공인
## 3018 구독경제
## 3019 시장진출
## 3020 지원
## 3021 청와대
## 3022 이전
## 3023 소식에
## 3024 '들썩들썩'
## 3025 (영상)인수위까지
## 3026 ‘발칵’…‘장애인
## 3027 갈라치기’
## 3028 이준석의
## 3029 혐오정치
## 3030 청와대
## 3031 인근
## 3032 주차장
## 3033 용지에
## 3034 3층건물
## 3035 짓는다
## 3036 조선
## 3037 4대
## 3038 궁궐로
## 3039 봄꽃
## 3040 즐기러
## 3041 오세요
## 3042 최희,
## 3043 딸
## 3044 낳고
## 3045 행복한
## 3046 엄마
## 3047 됐네..모녀
## 3048 모델
## 3049 1순위
## 3050 [송평인
## 3051 칼럼]누가
## 3052 청와대를
## 3053 돌려달라고
## 3054 했나
## 3055 출근길
## 3056 시위
## 3057 펼치는
## 3058 전장연…
## 3059 “불편”
## 3060 항의받기도
## 3061 [쿡정치
## 3062 포토]
## 3063 尹,
## 3064 안보<U+2027>경호
## 3065 논란
## 3066 속
## 3067 '용산
## 3068 집무실'
## 3069 강행…민주당
## 3070 반발[영상]
## 3071 청와대
## 3072 뒤편
## 3073 북악산
## 3074 전면
## 3075 개방…文
## 3076 정부
## 3077 ‘선수’
## 3078 [역지사지(歷知思志)]
## 3079 창덕궁
## 3080 청와대
## 3081 터
## 3082 '제왕의
## 3083 도읍'이라는데…대통령은
## 3084 왜
## 3085 나가려
## 3086 할까?[부동산백서]
## 3087 출근길
## 3088 시위
## 3089 재개한
## 3090 장애인들…"인수위서
## 3091 확답
## 3092 달라"
## 3093 오세훈
## 3094 “청와대
## 3095 개방되면
## 3096 광화문까지
## 3097 시너지”
## 3098 수궁터·칠궁·불상,
## 3099 유적
## 3100 즐비한
## 3101 靑…대통령
## 3102 기념관도
## 3103 들어서나
## 3104 전장연
## 3105 지하철
## 3106 출근길
## 3107 투쟁...
## 3108 장애인
## 3109 권리예산
## 3110 반영
## 3111 요구
## 3112 [쿠키포토]
## 3113 "靑
## 3114 옮겨오면
## 3115 개발
## 3116 가속"
## 3117 vs
## 3118 "교통혼잡
## 3119 초래"…용산
## 3120 '기대
## 3121 반
## 3122 우려
## 3123 반'
## 3124 청와대에서
## 3125 나오기까지,
## 3126 천년의
## 3127 역사
## 3128 [朝鮮칼럼]
## 3129 70여년
## 3130 ‘영욕의
## 3131 세월’
## 3132 끝내고…
## 3133 시민
## 3134 품으로
## 3135 돌아가는
## 3136 청와대
## 3137 70여년
## 3138 ‘영욕의
## 3139 세월’
## 3140 끝내고…
## 3141 시민
## 3142 품으로
## 3143 돌아가는
## 3144 청와대
## 3145 떠나가는
## 3146 청와대에
## 3147 불안한
## 3148 서촌…'무분별
## 3149 개발'
## 3150 노파심
## 3151 기존
## 3152 청와대는
## 3153 어떻게…시민공원·박물관
## 3154 등
## 3155 탈바꿈
## 3156 전망
## 3157 유적
## 3158 즐비한
## 3159 청와대
## 3160 개방
## 3161 '기대감
## 3162 쑥'
## 3163 “혼밥
## 3164 않겠다”
## 3165 尹,
## 3166 연일
## 3167 공개
## 3168 오찬…
## 3169 대변인
## 3170 “오바마
## 3171 떠올라”
## 3172 도마
## 3173 오른
## 3174 ‘장애인
## 3175 이동권’<U+22EF>인수위-민주당,
## 3176 뒤늦게
## 3177 경청모드
## 3178 기존
## 3179 청와대
## 3180 부지는?…
## 3181 시민공원·박물관
## 3182 탈바꿈
## 3183 유력
## 3184 [AT
## 3185 유통
## 3186 소식]
## 3187 GS리테일·무신사·넛지헬스케어·11번가
## 3188 4월
## 3189 1일부터
## 3190 경복궁
## 3191 야간관람
## 3192 시작
## 3193 [Daily
## 3194 Pick
## 3195 유통]
## 3196 오리온,
## 3197 11번가,
## 3198 팔도,
## 3199 코카콜라
## 3200 外
## 3201 서울
## 3202 시내
## 3203 4대
## 3204 궁궐
## 3205 봄맞이
## 3206 스팟
## 3207 [대통령실
## 3208 용산
## 3209 이전]
## 3210 변화
## 3211 맞는
## 3212 600여년
## 3213 '사대문
## 3214 한양도성'
## 3215 이동이
## 3216 투쟁이
## 3217 되는
## 3218 사람들,
## 3219 또다시
## 3220 출근길
## 3221 지하철에
## 3222 몸
## 3223 싣다
## 3224 [씨줄날줄]
## 3225 청와대
## 3226 사적
## 3227 지정/서동철
## 3228 논설위원
## 3229 [김서정의
## 3230 식물로
## 3231 보는
## 3232 그곳]
## 3233 서울
## 3234 종로구
## 3235 청와대
## 3236 "용산은
## 3237 길한
## 3238 곳"
## 3239 尹
## 3240 집무실
## 3241 풍수
## 3242 논란,
## 3243 전문가에게
## 3244 물어보니
## 3245 4대
## 3246 궁·종묘·조선왕릉에
## 3247 벚꽃은
## 3248 언제
## 3249 필까?
## 3250 역사
## 3251 속으로
## 3252 사라지는
## 3253 청와대,
## 3254 그
## 3255 영욕의
## 3256 900년史
## 3257 [시선집중]
## 3258 우석진
## 3259 “청와대
## 3260 개방
## 3261 효과
## 3262 年
## 3263 2,000억?
## 3264 MB
## 3265 세상이
## 3266 돌아오는
## 3267 듯"
## 3268 [속보]尹
## 3269 "경복궁에서
## 3270 청와대
## 3271 거쳐
## 3272 북악산
## 3273 개방로
## 3274 연결"
## 3275 [경북의
## 3276 맛]
## 3277 43.
## 3278 안동
## 3279 한우
## 3280 육회비빔밥
## 3281 포근한
## 3282 날씨에
## 3283 경복궁
## 3284 찾은
## 3285 시민들
## 3286 한복
## 3287 차려입고
## 3288 경복궁
## 3289 찾은
## 3290 외국인들
## 3291 [Daily
## 3292 New유통]
## 3293 전자랜드,
## 3294 동원디어푸드,
## 3295 KGC인삼공사
## 3296 外
## 3297 이준석
## 3298 '전장연
## 3299 때리기'에
## 3300 '혐오정치'
## 3301 편승한
## 3302 언론
## 3303 [대통령실
## 3304 용산
## 3305 이전]
## 3306 83년만에
## 3307 국민
## 3308 품으로
## 3309 돌아가는
## 3310 `왕의
## 3311 터`
## 3312 대통령실
## 3313 들어서는
## 3314 용산
## 3315 ‘정치
## 3316 중심지’로
## 3317 부상…
## 3318 종로·광화문
## 3319 정치
## 3320 상징성
## 3321 약해질
## 3322 듯
## 3323 "대통령
## 3324 집무실
## 3325 이전해도
## 3326 청와대
## 3327 일대
## 3328 개발
## 3329 힘들것"
## 3330 [대선잡설]
## 3331 청와대
## 3332 ‘역사
## 3333 속으로’
## 3334 전장연
## 3335 "이준석,
## 3336 장애인단체
## 3337 '갈라치기'
## 3338 멈춰라"
## 3339 재개된
## 3340 장애인
## 3341 출근길
## 3342 시위
## 3343 "기재부
## 3344 답변할
## 3345 때까지
## 3346 계속
## 3347 지하철
## 3348 탄다"
## 3349 '용산
## 3350 이전'
## 3351 예비비
## 3352 360억원…6일
## 3353 국무회의서
## 3354 처리
## 3355 [르포]
## 3356 대통령
## 3357 집무실
## 3358 용산
## 3359 이전에
## 3360 효자동도
## 3361 ‘기대
## 3362 반
## 3363 우려
## 3364 반’
## 3365 제왕적
## 3366 권력
## 3367 청산…
## 3368 국민
## 3369 소통
## 3370 의지
## 3371 반영
## 3372 용산
## 3373 집무실
## 3374 이전의
## 3375 문명적
## 3376 의미와
## 3377 서울지역의
## 3378 변신
## 3379 작업
## 3380 정계
## 3381 떠나는
## 3382 퇴계
## 3383 이황
## 3384 고향길
## 3385 재현
## 3386 행사
## 3387 [현장]
## 3388 전장연
## 3389 "이준석,
## 3390 장애인단체
## 3391 간
## 3392 '갈라치기'
## 3393 멈춰야"
## 3394 가파른
## 3395 경사에
## 3396 '휘청',
## 3397 작은
## 3398 턱에도
## 3399 '덜컹'…장애인
## 3400 출근길
## 3401 동행해보니[영상]
## 3402 민주일반노조
## 3403 "尹
## 3404 당선인
## 3405 노동정책
## 3406 규탄"
## 3407 투쟁
## 3408 예고
## 3409 연합뉴스TV,
## 3410 경복궁
## 3411 야외
## 3412 스튜디오에서
## 3413 '대선
## 3414 생방송'
## 3415 연합뉴스TV,
## 3416 경복궁
## 3417 야외
## 3418 스튜디오에서
## 3419 '대선
## 3420 생방송'
## 3421 이건희기증관에
## 3422 靑
## 3423 '시민공원'까지..광화문
## 3424 문화·관광벨트
## 3425 구축
## 3426 文,
## 3427 후보
## 3428 땐
## 3429 "독재
## 3430 상징,
## 3431 靑
## 3432 이전"
## 3433 공약…
## 3434 민주당,
## 3435 지금은
## 3436 "靑
## 3437 이전
## 3438 백해무익"
## 3439 딴소리
## 3440 '영욕의
## 3441 70년'
## 3442 청와대,
## 3443 이제
## 3444 역사
## 3445 속으로
## 3446 "청와대
## 3447 드디어
## 3448 우리
## 3449 곁으로"
## 3450 靑
## 3451 개방
## 3452 포스터
## 3453 등장
## 3454 74년
## 3455 만에
## 3456 '완전
## 3457 개방'되는
## 3458 청와대,
## 3459 '이렇게'
## 3460 달라집니다
## 3461 [단독]靑
## 3462 개방도
## 3463 지체…"경내
## 3464 관람
## 3465 가능…건물
## 3466 등
## 3467 안전
## 3468 점검
## 3469 필요"
## 3470 [문광스님의
## 3471 한국학에세이]<6><U+00A0>청와대와
## 3472 용산의
## 3473 풍수
## 3474 尹
## 3475 집무실
## 3476 들어설
## 3477 용산은
## 3478 길지일까…풍수학자들에게
## 3479 물어보니
## 3480 11번가,
## 3481 '경복궁·실내전시회'
## 3482 티켓
## 3483 단독
## 3484 판매
## 3485 진행
## 3486 [문광스님의
## 3487 한국학에세이]<6><U+00A0>청와대와
## 3488 용산의
## 3489 풍수
## 3490 尹
## 3491 집무실
## 3492 들어설
## 3493 용산은
## 3494 길지일까…풍수학자들에게
## 3495 물어보니
## 3496 11번가,
## 3497 '경복궁·실내전시회'
## 3498 티켓
## 3499 단독
## 3500 판매
## 3501 진행
## 3502 [속보]
## 3503 지하철
## 3504 3호선
## 3505 5호선
## 3506 경복궁역,
## 3507 여의도역
## 3508 인근
## 3509 오후
## 3510 1시
## 3511 시위
## 3512 예정
## 3513 한국코러스,
## 3514 바이오
## 3515 코스메틱
## 3516 브랜드
## 3517 '뷰티오'
## 3518 경복궁
## 3519 면세점
## 3520 입점
## 3521 김현모
## 3522 문화재청장,
## 3523 퇴계선생
## 3524 마지막
## 3525 귀향길
## 3526 재현행사
## 3527 참석
## 3528 권력
## 3529 정점이자
## 3530 구중궁궐
## 3531 비판…영욕의
## 3532 75년史
## 3533 靑,
## 3534 역사속으로
## 3535 마지막
## 3536 지하철
## 3537 시위될까...
## 3538 전장연
## 3539 "인수위에
## 3540 '장애인의
## 3541 날'까지
## 3542 답변
## 3543 요청'
## 3544 완전
## 3545 개방되는
## 3546 청와대...'역사·문화공간'
## 3547 될까
## 3548 관심
## 3549 주목
## 3550 尹,
## 3551 용산
## 3552 대통령
## 3553 시대
## 3554 공식화…청와대
## 3555 인근
## 3556 개발
## 3557 활성화
## 3558 될까
## 3559 [여행&여가]
## 3560 글래드호텔·11번가반얀트리·프립
## 3561 外
## 3562 [老子
## 3563 한국을
## 3564 말하다]
## 3565 10.
## 3566 올바른
## 3567 행위
## 3568 [마감
## 3569 후]
## 3570 봄꽃
## 3571 지기
## 3572 전
## 3573 희망을
## 3574 돌려주세요
## 3575 대통령집무실
## 3576 제외된
## 3577 청와대
## 3578 인근,
## 3579 개발
## 3580 규제
## 3581 풀릴까
## 3582 퇴계의
## 3583 귀향길
## 3584 따라
## 3585 걸으며,
## 3586 ‘큰
## 3587 뜻’을
## 3588 되새겨
## 3589 보다
## 3590 봄꽃
## 3591 만발
## 3592 도심궁궐,
## 3593 야간관람
## 3594 등
## 3595 봄나들이
## 3596 행사
## 3597 풍성
## 3598 [뉴스포스트
## 3599 포토]
## 3600 포근한
## 3601 봄날...경복궁
## 3602 나들이
## 3603 온
## 3604 시민들
## 3605 경기도교육감
## 3606 도전
## 3607 김거성
## 3608 "장애인
## 3609 이동권
## 3610 폄훼,
## 3611 이준석
## 3612 대표
## 3613 사과해야"
## 3614 "용산집무실
## 3615 주변에
## 3616 수십만평
## 3617 국민공원
## 3618 조성...국민과
## 3619 소통강화"
## 3620 [단독]
## 3621 "대통령실
## 3622 '광화문
## 3623 청사
## 3624 별관'이
## 3625 최적"…靑
## 3626 '워룸'은
## 3627 계속
## 3628 사용,
## 3629 비상시
## 3630 '지하통로'
## 3631 이동
## 3632 '물러남'의
## 3633 가치를
## 3634 알려준
## 3635 퇴계
## 3636 이황…'마지막
## 3637 귀향길'
## 3638 재현
## 3639 “대통령집무실
## 3640 용산
## 3641 이전
## 3642 경제효과
## 3643 최대
## 3644 3조3000억”
## 3645 [설왕설래]
## 3646 청와대
## 3647 역사
## 3648 속으로
## 3649 "尹
## 3650 취임
## 3651 시
## 3652 청와대
## 3653 완전
## 3654 개방"…靑에서
## 3655 K팝
## 3656 공연
## 3657 열린다
## 3658 대통령실
## 3659 들어설
## 3660 용산은
## 3661 길지?...학자들
## 3662 "특정
## 3663 땅
## 3664 길흉은
## 3665 생각하기
## 3666 나름"
## 3667 인권위,
## 3668 이준석
## 3669 ‘전장연’
## 3670 발언
## 3671 혐오
## 3672 차별
## 3673 여부
## 3674 검토
## 3675 이준석
## 3676 “인권위,
## 3677 내가
## 3678 장애인
## 3679 혐오했다곤
## 3680 못하고
## 3681 뭘
## 3682 밝히나”
## 3683 윤석열
## 3684 당선인
## 3685 "靑,
## 3686 5월
## 3687 10일
## 3688 모두
## 3689 개방"...
## 3690 군사구역
## 3691 풀리며
## 3692 시너지
## 3693 효과
## 3694 기대
## 3695 [용산
## 3696 시대
## 3697 개막]
## 3698 74년
## 3699 만에
## 3700 국민
## 3701 품으로
## 3702 돌아가는
## 3703 40만㎡
## 3704 靑
## 3705 퇴계의
## 3706 발자취
## 3707 따라
## 3708 700리
## 3709 윤석열
## 3710 당선인
## 3711 "靑,
## 3712 5월
## 3713 10일
## 3714 모두
## 3715 개방"...
## 3716 군사구역
## 3717 풀리며
## 3718 시너지
## 3719 효과
## 3720 기대
## 3721 “대통령
## 3722 집무실
## 3723 이전
## 3724 경제
## 3725 효과
## 3726 1.8조원”…이유는?
## 3727 [용산
## 3728 시대
## 3729 개막]
## 3730 74년
## 3731 만에
## 3732 국민
## 3733 품으로
## 3734 돌아가는
## 3735 40만㎡
## 3736 靑
## 3737 퇴계의
## 3738 발자취
## 3739 따라
## 3740 700리
## 3741 ‘전장연’에
## 3742 “왜
## 3743 ‘탈시설’
## 3744 들먹이나”
## 3745 분노한
## 3746 부모…이준석도
## 3747 경청
## 3748 [박종인의
## 3749 땅의
## 3750 歷史]
## 3751 조정은
## 3752 日軍
## 3753 위문단
## 3754 보내고,
## 3755 병사는
## 3756 中·日로
## 3757 갈려
## 3758 총을
## 3759 겨눴다
## 3760 [마감후]봄꽃
## 3761 지기
## 3762 전
## 3763 희망을
## 3764 돌려주세요
## 3765 장애인단체
## 3766 릴레이
## 3767 삭발
## 3768 투쟁에도
## 3769 이준석
## 3770 "사과
## 3771 안합니다"
## 3772 [안휘의
## 3773 시시비비]
## 3774 정도전이
## 3775 틀렸다(?)
## 3776 [休]
## 3777 한중일
## 3778 3국3색
## 3779 궁궐…
## 3780 우주의
## 3781 중심을
## 3782 지상서
## 3783 만나다
## 3784 '10명,
## 3785 12시'
## 3786 방역정책…"회식
## 3787 문화가
## 3788 사라졌다"
## 3789 한숨만
## 3790 반복
## 3791 "집무실
## 3792 이전시
## 3793 年
## 3794 1.8조
## 3795 관광수입"…尹
## 3796 지원사격
## 3797 나선
## 3798 전경련
## 3799 [백세시대
## 3800 /
## 3801 한국의전통色이야기
## 3802 4]
## 3803 단청(丹靑)은
## 3804 음양의
## 3805 조화에
## 3806 본뜻이
## 3807 있어
## 3808 전장연
## 3809 삭발식
## 3810 찾은
## 3811 인권위
## 3812 "장애인
## 3813 이동권
## 3814 문제
## 3815 알리는
## 3816 계기"
## 3817 대통령
## 3818 떠나는
## 3819 靑
## 3820 일대…
## 3821 “규제
## 3822 숨통
## 3823 트이겠지만
## 3824 확
## 3825 풀리진
## 3826 않을
## 3827 듯”
## 3828 [현장]
## 3829 무릎
## 3830 꿇은
## 3831 김예지…장애인
## 3832 단체에
## 3833 "대신
## 3834 사과"
## 3835 봄꽃
## 3836 가득
## 3837 핀
## 3838 4대
## 3839 궁·종묘·조선왕릉에서
## 3840 봄나들이
## 3841 어때요
## 3842 삭발식
## 3843 한
## 3844 전장연
## 3845 “이준석,
## 3846 일제
## 3847 때
## 3848 한국인
## 3849 순사보다
## 3850 못해”
## 3851 '靑개방시
## 3852 연
## 3853 2천억
## 3854 경제효과'
## 3855 분석에…황희
## 3856 "면밀검토
## 3857 필요"
## 3858 세계문화유산
## 3859 옆
## 3860 현대
## 3861 뮤지엄은
## 3862 어떻게
## 3863 만들어졌을까
## 3864 '靑개방시
## 3865 연
## 3866 2천억
## 3867 경제효과'
## 3868 분석에…황희
## 3869 "면밀검토
## 3870 필요"
## 3871 전장연,
## 3872 지하철
## 3873 시위
## 3874 중단하고
## 3875 삭발식
## 3876 진행…“인수위
## 3877 답변
## 3878 촉구”
## 3879 세계문화유산
## 3880 옆
## 3881 현대
## 3882 뮤지엄은
## 3883 어떻게
## 3884 만들어졌을까
## 3885 [데스크칼럼]
## 3886 윤석열
## 3887 ,
## 3888 집무실
## 3889 이전이
## 3890 민생보다
## 3891 급한가
## 3892 오늘도
## 3893 삭발…“이준석
## 3894 대표,
## 3895 일주일
## 3896 동안
## 3897 휠체어
## 3898 함께
## 3899 타보자”
## 3900 “대통령
## 3901 집무실
## 3902 용산
## 3903 이전,
## 3904 GDP
## 3905 증가
## 3906 효과
## 3907 최대
## 3908 3조3천억”
## 3909 "이준석
## 3910 낙인에
## 3911 욕설전화
## 3912 어마어마...
## 3913 압박감에
## 3914 상담치료도"
## 3915 인사말
## 3916 하는
## 3917 김현모
## 3918 문화재청장
## 3919 고민정
## 3920 "곧
## 3921 여당
## 3922 대표
## 3923 될
## 3924 이준석,
## 3925 윽박
## 3926 전에
## 3927 국민에
## 3928 귀
## 3929 기울여야"
## 3930 이준석
## 3931 "사과할
## 3932 일
## 3933 없어…전장연,
## 3934 2호선
## 3935 타지
## 3936 마라"
## 3937 주장
## 3938 이준석
## 3939 "사과할
## 3940 일
## 3941 없어…전장연,
## 3942 2호선
## 3943 타지
## 3944 마라"
## 3945 주장
## 3946 지하철
## 3947 시위
## 3948 멈추고
## 3949 삭발투쟁…“장애인
## 3950 권리예산
## 3951 요구”
## 3952 [기고]
## 3953 용산을
## 3954 미래
## 3955 한국의
## 3956 '내셔널
## 3957 몰'로
## 3958 조성하자
## 3959 [영상]
## 3960 무릎
## 3961 꿇고
## 3962 사과한
## 3963 김예지
## 3964 의원…“정치권
## 3965 대신
## 3966 사과”
## 3967 청와대서
## 3968 K팝
## 3969 콘서트도
## 3970 본다…어떻게
## 3971 바뀌나
## 3972 이준석
## 3973 직격한
## 3974 나경원
## 3975 "이동권
## 3976 보장은
## 3977 장애인의
## 3978 생존"[영상]
## 3979 인수위
## 3980 “지하철
## 3981 시위
## 3982 중지를”…전장연
## 3983 “이준석
## 3984 사과해야”
## 3985 이건
## 3986 찍어야돼
## 3987 대통령
## 3988 집무실
## 3989 용산
## 3990 이전…GDP
## 3991 최대
## 3992 3.3조
## 3993 증가
## 3994 인권위,
## 3995 전장연
## 3996 지하철
## 3997 시위
## 3998 현장
## 3999 방문
## 4000 인권위,
## 4001 전장연
## 4002 지하철
## 4003 시위
## 4004 현장
## 4005 방문
## 4006 대통령
## 4007 집무실
## 4008 용산시대…부동산
## 4009 시장
## 4010 '기대반
## 4011 우려반'
## 4012 장애인들에게
## 4013 귀를
## 4014 귀울이면
## 4015 장애인활동지원사입니다,
## 4016 지하철
## 4017 시위
## 4018 비난하는
## 4019 분들께
## 4020 드립니다
## 4021 [투쟁결의문]
## 4022 시설에서
## 4023 교육받았는데
## 4024 얻은
## 4025 게
## 4026 하나도
## 4027 없다
## 4028 /
## 4029 최동운
## 4030 제3회
## 4031 퇴계선생
## 4032 마지막
## 4033 귀향길
## 4034 재현행사
## 4035 한경연
## 4036 “청와대
## 4037 전면개방
## 4038 땐
## 4039 매년
## 4040 관광수입
## 4041 1조8000억”
## 4042 경복국
## 4043 야간
## 4044 개장
## 4045 이준석
## 4046 “전장연,
## 4047 시위
## 4048 방식
## 4049 바꿔
## 4050 지하철
## 4051 지연
## 4052 없어…진작
## 4053 이렇게”
## 4054 장애인
## 4055 이동권
## 4056 문제,
## 4057 국민
## 4058 모두의
## 4059 문제
## 4060 이준석
## 4061 “전장연,
## 4062 시위
## 4063 방식
## 4064 바꿔
## 4065 지하철
## 4066 지연
## 4067 없어…진작
## 4068 이렇게”
## 4069 장애인
## 4070 이동권
## 4071 문제,
## 4072 국민
## 4073 모두의
## 4074 문제
## 4075 형형색색으로
## 4076 빛나는
## 4077 경회루
## 4078 ‘비열?
## 4079 화끈?’
## 4080 이준석식
## 4081 갈라치기
## 4082 막전막후
## 4083 출근길
## 4084 장애인
## 4085 지하철
## 4086 시위
## 4087 무릎꿇은
## 4088 국민의힘
## 4089 김예지
## 4090 의원
## 4091 인권위,
## 4092 '삭발
## 4093 투쟁'
## 4094 전장연
## 4095 방문…"장애인
## 4096 이동권
## 4097 문제
## 4098 알리는
## 4099 계기"
## 4100 한복입고
## 4101 기념촬영중
## 4102 '고궁의
## 4103 밤'
## 4104 출근길
## 4105 시위
## 4106 중단한
## 4107 전장연,
## 4108 이틀째
## 4109 삭발
## 4110 투쟁
## 4111 [뉴시스Pic]
## 4112 장애인단체
## 4113 “지하철
## 4114 시위
## 4115 잠정
## 4116 중단…
## 4117 인수위
## 4118 대응
## 4119 지켜볼것”
## 4120 출근길
## 4121 시위
## 4122 중단한
## 4123 전장연,
## 4124 이틀째
## 4125 삭발
## 4126 투쟁
## 4127 [뉴시스Pic]
## 4128 장애인단체
## 4129 “지하철
## 4130 시위
## 4131 잠정
## 4132 중단…
## 4133 인수위
## 4134 대응
## 4135 지켜볼것”
## 4136 인수위
## 4137 “내일
## 4138 아침
## 4139 전장연
## 4140 지하철
## 4141 시위현장
## 4142 찾아뵐
## 4143 것”
## 4144 전장연
## 4145 "지하철
## 4146 2호선에서도
## 4147 출근길
## 4148 시위할
## 4149 것"…
## 4150 이준석에
## 4151 사과
## 4152 촉구
## 4153 설전
## 4154 벌인
## 4155 전장연<U+00A0>“이준석
## 4156 100분
## 4157 토론하자”
## 4158 李
## 4159 “100분?
## 4160 무제한
## 4161 해”
## 4162 청와대를
## 4163 시민에게
## 4164 돌려준다고?
## 4165 언제,
## 4166 어떻게?
## 4167 #이슈있슈
## 4168 인수위,
## 4169 장애인차별철폐연대
## 4170 회원들과
## 4171 면담
## 4172 경회루의
## 4173 밤
## 4174 인사
## 4175 나누는
## 4176 임이자
## 4177 간사
## 4178 이준석
## 4179 "전장연에
## 4180 사과
## 4181 안
## 4182 해,
## 4183 잘못된
## 4184 의식
## 4185 버려라"
## 4186 인사
## 4187 나누는
## 4188 임이자
## 4189 간사
## 4190 이준석
## 4191 "전장연에
## 4192 사과
## 4193 안
## 4194 해,
## 4195 잘못된
## 4196 의식
## 4197 버려라"
## 4198 조명
## 4199 켜진
## 4200 경회루를
## 4201 담다
## 4202 봄밤
## 4203 고궁의
## 4204 정취
## 4205 한경연
## 4206 "대통령
## 4207 집무실
## 4208 이전
## 4209 경제효과
## 4210 관광수익
## 4211 1.8조원
## 4212 추정"
## 4213 [현장에서]김예지
## 4214 국민의힘
## 4215 의원,
## 4216 전장연에
## 4217 '무릎사과'
## 4218 왜?
## 4219 고민정
## 4220 "강북
## 4221 시민,
## 4222 출근
## 4223 늦어도
## 4224 이해를"...이준석
## 4225 "이재명에
## 4226 말해라"
## 4227 물에
## 4228 비친
## 4229 경회루
## 4230 윤석열
## 4231 측,
## 4232 이준석에
## 4233 사과
## 4234 요구할까...李
## 4235 "차라리
## 4236 민주당
## 4237 당론으로"
## 4238 尹인수위-장애인연대,
## 4239 현장만남
## 4240 "출근길
## 4241 시위
## 4242 멈출까"
## 4243 전장연과
## 4244 면담하는
## 4245 임이자
## 4246 간사
## 4247 윤석열
## 4248 측,
## 4249 이준석에
## 4250 사과
## 4251 요구할까...李
## 4252 "차라리
## 4253 민주당
## 4254 당론으로"
## 4255 아름다운
## 4256 고궁의
## 4257 밤
## 4258 尹인수위-장애인연대,
## 4259 현장만남
## 4260 "출근길
## 4261 시위
## 4262 멈출까"
## 4263 김예지
## 4264 의원,
## 4265 지하철
## 4266 시위
## 4267 장애인
## 4268 단체에
## 4269 무릎
## 4270 꿇어‥"정치권
## 4271 대신
## 4272 사과"
## 4273 전장연,
## 4274 지하철
## 4275 탑승
## 4276 시위
## 4277 대신
## 4278 삭발
## 4279 투쟁..."인수위
## 4280 확답
## 4281 내놔야"
## 4282 115일
## 4283 만의
## 4284 정치권
## 4285 ‘약속’에
## 4286 ‘장애인
## 4287 출근길
## 4288 시위’
## 4289 멈추지만…
## 4290 [오병상의
## 4291 코멘터리]
## 4292 ‘청와대
## 4293 해체’의
## 4294 숨은
## 4295 동력
## 4296 풍수?
## 4297 경회루의
## 4298 밤
## 4299 '저장'
## 4300 한복입고
## 4301 근정전
## 4302 배경으로
## 4303 '찰칵'
## 4304 한복입고
## 4305 근정전
## 4306 배경으로
## 4307 '찰칵'
## 4308 밤에
## 4309 보는
## 4310 궁이
## 4311 더
## 4312 아름답구나
## 4313 봄밤
## 4314 불
## 4315 밝힌
## 4316 도심
## 4317 속
## 4318 궁
## 4319 [투표]장애인
## 4320 지하철
## 4321 시위,
## 4322 어떻게
## 4323 생각하시나요[이슈시개]
## 4324 전장연
## 4325 "다음달
## 4326 20일까지
## 4327 지하철
## 4328 시위
## 4329 잠정
## 4330 중단"
## 4331 인수위
## 4332 만난
## 4333 장애인
## 4334 단체
## 4335 "시위
## 4336 멈추고
## 4337 삭발"
## 4338 전장연
## 4339 “이준석
## 4340 사과
## 4341 안
## 4342 하면
## 4343 기대에
## 4344 맞춰
## 4345 2호선
## 4346 시위”
## 4347 장애인단체
## 4348 이야기
## 4349 듣는
## 4350 임이자
## 4351 간사
## 4352 기와
## 4353 뷰
## 4354 보이는
## 4355 서울
## 4356 핫플레이스
## 4357 5
## 4358 인권위,
## 4359 전장연
## 4360 시위현장
## 4361 '뒷북
## 4362 방문'…"늦어서
## 4363 죄송하다"
## 4364 기와
## 4365 뷰
## 4366 보이는
## 4367 서울
## 4368 핫플레이스
## 4369 5
## 4370 인권위,
## 4371 전장연
## 4372 시위현장
## 4373 '뒷북
## 4374 방문'…"늦어서
## 4375 죄송하다"
## 4376 이준석
## 4377 ‘전장연’
## 4378 발언
## 4379 살핀다는
## 4380 인권위에
## 4381 李
## 4382 “기대되네”
## 4383 조명
## 4384 켜진
## 4385 경회루를
## 4386 배경으로
## 4387 '찰칵'
## 4388 고궁의
## 4389 밤
## 4390 만끽하는
## 4391 시민들
## 4392 [포토]
## 4393 퇴계의
## 4394 귀향길을
## 4395 따라나선
## 4396 선비들
## 4397 전경련
## 4398 “대통령
## 4399 집무실
## 4400 용산
## 4401 이전
## 4402 시
## 4403 매년
## 4404 1조8000억원
## 4405 관광수입
## 4406 발생”
## 4407 용산에
## 4408 생길
## 4409 새
## 4410 대통령실
## 4411 이름은?
## 4412 대국민
## 4413 공모한다
## 4414 이준석
## 4415 "전장연에
## 4416 사과
## 4417 없다...
## 4418 김예지,
## 4419 개인
## 4420 자격으로
## 4421 행동"
## 4422 이준석
## 4423 "장애인
## 4424 혐오를
## 4425 한
## 4426 것
## 4427 같은
## 4428 느낌?…뭘
## 4429 사과하라는
## 4430 건지"
## 4431 “장애인
## 4432 권리
## 4433 보장”…출근길
## 4434 지하철
## 4435 시위,
## 4436 멈출
## 4437 수
## 4438 없는
## 4439 이유
## 4440 한경연
## 4441 "청와대
## 4442 개방시
## 4443 연간
## 4444 5조원
## 4445 경제효과…투자
## 4446 관점에서
## 4447 봐야"
## 4448 봄밤
## 4449 고궁의
## 4450 정취
## 4451 만끽하는
## 4452 시민들
## 4453 '김신조
## 4454 사건'
## 4455 이후
## 4456 54년
## 4457 만에…靑
## 4458 뒤편
## 4459 북악산
## 4460 완전
## 4461 개방
## 4462 '흩날리는
## 4463 벚꽃'
## 4464 경복궁의
## 4465 밤은
## 4466 아름답다…
## 4467 4월부터
## 4468 야간
## 4469 관람
## 4470 국권침탈
## 4471 사건:
## 4472 을미사변과
## 4473 1894년
## 4474 경복궁
## 4475 점령사건의
## 4476 비교
## 4477 전장연
## 4478 "100분
## 4479 공개
## 4480 토론
## 4481 하자"…이준석
## 4482 "진행자는
## 4483 김어준
## 4484 씨
## 4485 제안"
## 4486 이준석
## 4487 대표,
## 4488 주변에
## 4489 누가
## 4490 있는지
## 4491 잘
## 4492 보십시오
## 4493 [좋은데,
## 4494 싫었습니다]
## 4495 문화재청
## 4496 업무보고…미래
## 4497 유산
## 4498 발굴·청와대
## 4499 활용
## 4500 방안
## 4501 논의(종합)
## 4502 [단독]전장연,
## 4503 내일부터
## 4504 '출근길
## 4505 시위'
## 4506 중단···"장애인권리예산
## 4507 보장
## 4508 확답까지
## 4509 삭발투쟁"
## 4510 [단독]전장연,
## 4511 내일부터
## 4512 '출근길
## 4513 시위'
## 4514 중단···"장애인권리예산
## 4515 보장
## 4516 확답까지
## 4517 삭발투쟁"
## 4518 임기말
## 4519 북악산
## 4520 개방에…靑
## 4521 "국민과의
## 4522 약속"·서민
## 4523 "尹에
## 4524 배
## 4525 아픈가"
## 4526 이준석
## 4527 “지하철
## 4528 점거로
## 4529 억울함·관심
## 4530 호소하는
## 4531 게
## 4532 문명
## 4533 사회냐”
## 4534 전장연
## 4535 “사과
## 4536 안하면
## 4537 2호선
## 4538 시위”
## 4539 예고에…이준석
## 4540 “타지
## 4541 마라”
## 4542 '2022
## 4543 문화유산'에
## 4544 한복,
## 4545 경복궁
## 4546 등
## 4547 5건
## 4548 대장경·백제지구·궁중음식
## 4549 등도
## 4550 함께
## 4551 선정
## 4552 오세훈
## 4553 "청와대
## 4554 개방되면
## 4555 광화문
## 4556 광장까지
## 4557 시너지
## 4558 효과"
## 4559 한복·경복궁,
## 4560 2022년
## 4561 대표
## 4562 홍보
## 4563 문화유산으로
## 4564 선정됐다
## 4565 인권위,
## 4566 "장애인
## 4567 이동권
## 4568 알리는
## 4569 계기
## 4570 돼야"
## 4571 전장연과
## 4572 면담
## 4573 佛
## 4574 엘리제궁
## 4575 거리처럼…대통령
## 4576 오는
## 4577 한남동
## 4578 '미술
## 4579 1번가'로
## 4580 뜬다
## 4581 인권위원회
## 4582 "이준석
## 4583 발언,
## 4584 사회적
## 4585 영향
## 4586 들여다보겠다"
## 4587 인수위
## 4588 만난
## 4589 장애인단체‥"시위
## 4590 일단
## 4591 멈추고
## 4592 삭발
## 4593 투쟁"
## 4594 與
## 4595 “용산은
## 4596 일본군
## 4597 있던
## 4598 곳”…‘尹
## 4599 집무실’
## 4600 이전에
## 4601 어깃장
## 4602 장애인단체,
## 4603 시위
## 4604 대신
## 4605 삭발식…이준석
## 4606 대표는
## 4607 사과
## 4608 또
## 4609 거부
## 4610 '눈물의
## 4611 삭발
## 4612 투쟁'
## 4613 나선
## 4614 전장연…
## 4615 인수위
## 4616 답변
## 4617 기한까지
## 4618 삭발식
## 4619 진행
## 4620 [뉴시스Pic]
## 4621 전장연
## 4622 ‘이준석
## 4623 사과’
## 4624 요구에…
## 4625 인수위
## 4626 “전달하겠다”
## 4627 전장연
## 4628 찾은
## 4629 인수위
## 4630 “이동권
## 4631 보장
## 4632 검토할테니
## 4633 시민불편
## 4634 고려를”
## 4635 전장연
## 4636 "이준석
## 4637 보란
## 4638 듯
## 4639 2호선
## 4640 타겠다"→
## 4641 李
## 4642 "내탓
## 4643 하겠다?
## 4644 고민정
## 4645 참고하길"
## 4646 2022년의
## 4647 대표
## 4648 문화유산에
## 4649 한복·경복궁
## 4650 등
## 4651 선정
## 4652 ‘2022년
## 4653 문화유산'에
## 4654 한복·경복궁·대장경
## 4655 등
## 4656 경복궁
## 4657 집현전
## 4658 터에서
## 4659 '디지털
## 4660 집현전'
## 4661 계획
## 4662 확정
## 4663 한복·경복궁
## 4664 등
## 4665 올해
## 4666 홍보유산
## 4667 선정…"SNS에
## 4668 집중
## 4669 홍보"
## 4670 경복궁
## 4671 집현전
## 4672 터에서
## 4673 '디지털
## 4674 집현전'
## 4675 계획
## 4676 확정
## 4677 100년
## 4678 전
## 4679 경복궁으로
## 4680 시간여행
## 4681 떠나볼까
## 4682 "떠나는
## 4683 버스
## 4684 뒤꽁무니만…특근수당?
## 4685 일하는
## 4686 것만으로
## 4687 감사해야지"
## 4688 장애인
## 4689 시위서
## 4690 무릎
## 4691 꿇은
## 4692 김예지
## 4693 의원…"정치권
## 4694 대신
## 4695 사과"
## 4696 [한기호의
## 4697 정치박박]
## 4698 정권인수
## 4699 중
## 4700 예비
## 4701 여당
## 4702 대표의
## 4703 `개인
## 4704 이슈
## 4705 파이팅?`
## 4706 대통령
## 4707 집무실
## 4708 용산
## 4709 이전
## 4710 시
## 4711 관광수입
## 4712 1.8조원·GDP
## 4713 3.3조원
## 4714 '증가'
## 4715 인수위
## 4716 "장애인
## 4717 삶의
## 4718 질
## 4719 개선"
## 4720 전장연
## 4721 "이준석
## 4722 사과해야"
## 4723 (종합)
## 4724 청와대
## 4725 시대
## 4726 막
## 4727 내리고
## 4728 '광화문
## 4729 대통령'
## 4730 되나…집무실
## 4731 이전
## 4732 속도
## 4733 인권위
## 4734 '장애인
## 4735 이동권'
## 4736 시위
## 4737 전장연과
## 4738 면담..."인권위
## 4739 역할
## 4740 제대로
## 4741 하겠다"
## 4742 대통령
## 4743 집무실
## 4744 용산
## 4745 이전
## 4746 시
## 4747 관광수입
## 4748 1.8조원·GDP
## 4749 3.3조원
## 4750 '증가'
## 4751 인수위
## 4752 "장애인
## 4753 삶의
## 4754 질
## 4755 개선"
## 4756 전장연
## 4757 "이준석
## 4758 사과해야"
## 4759 (종합)
## 4760 청와대
## 4761 시대
## 4762 막
## 4763 내리고
## 4764 '광화문
## 4765 대통령'
## 4766 되나…집무실
## 4767 이전
## 4768 속도
## 4769 인권위
## 4770 '장애인
## 4771 이동권'
## 4772 시위
## 4773 전장연과
## 4774 면담..."인권위
## 4775 역할
## 4776 제대로
## 4777 하겠다"
## 4778 부활
## 4779 노리는
## 4780 전경련,
## 4781 尹정부
## 4782 코드
## 4783 맞추기…"용산
## 4784 이전
## 4785 효과
## 4786 5조"
## 4787 지방선거
## 4788 대응
## 4789 장애인연대
## 4790 출범…전장연은
## 4791 릴레이
## 4792 삭발
## 4793 투쟁
## 4794 文-尹,
## 4795 앞다퉈
## 4796 "국민
## 4797 품으로"…·내일
## 4798 靑
## 4799 인근
## 4800 북악산
## 4801 전면
## 4802 개방
## 4803 ‘무릎
## 4804 시위’
## 4805 김예지,
## 4806 이준석에
## 4807 일침
## 4808 “부적절한
## 4809 언행으로
## 4810 이슈화
## 4811 고맙다”
## 4812 [기고/손병철]
## 4813 제왕적
## 4814 청와대를
## 4815 벗어난
## 4816 광화문
## 4817 대통령의
## 4818 시대
## 4819 [설연휴-해돋이
## 4820 명소]경복궁·인왕산·호암산·개운산서
## 4821 '호랑이
## 4822 기운'
## 4823 전장연
## 4824 "이준석
## 4825 때문에
## 4826 지하철
## 4827 2호선에서도
## 4828 출근길
## 4829 시위할
## 4830 것"
## 4831 한복·경복궁·팔만대장경
## 4832 등
## 4833 '올해의
## 4834 대표
## 4835 문화유산'
## 4836 "부조리"를
## 4837 말하는
## 4838 정치인
## 4839 때문에
## 4840 쓰게
## 4841 된
## 4842 글입니다
## 4843 “액운아
## 4844 물렀거라”…
## 4845 경복궁·호암산으로
## 4846 ‘범
## 4847 보러간다’
## 4848 장애인시위
## 4849 가서
## 4850 무릎
## 4851 꿇은
## 4852 국힘
## 4853 김예지
## 4854 “사과드립니다”
## 4855 [현장]
## 4856 국립중앙박물관,
## 4857 100년
## 4858 전
## 4859 유리건판
## 4860 속
## 4861 경복궁
## 4862 모습
## 4863 공개
## 4864 전장연
## 4865 "이준석
## 4866 사과하시라"
## 4867 임이자
## 4868 "출근길
## 4869 투쟁
## 4870 중지해달라"
## 4871 100년
## 4872 전
## 4873 일제가
## 4874 촬영한
## 4875 경복궁의
## 4876 모습은
## 4877 어땠을까
## 4878 전장연
## 4879 "이준석,
## 4880 일제
## 4881 한국인
## 4882 순사보다
## 4883 못해"
## 4884 尹
## 4885 지원
## 4886 나선
## 4887 전경련…"대통령
## 4888 집무실
## 4889 용산
## 4890 가면
## 4891 GDP
## 4892 최대
## 4893 3.3조
## 4894 증가"
## 4895 전장연
## 4896 "이준석,
## 4897 일제
## 4898 한국인
## 4899 순사보다
## 4900 못해"
## 4901 尹
## 4902 지원
## 4903 나선
## 4904 전경련…"대통령
## 4905 집무실
## 4906 용산
## 4907 가면
## 4908 GDP
## 4909 최대
## 4910 3.3조
## 4911 증가"
## 4912 양희은,
## 4913 '왕실
## 4914 전용
## 4915 휴식처'
## 4916 경복궁
## 4917 향원정
## 4918 소개
## 4919 집무실
## 4920 이전후
## 4921 靑
## 4922 관광수입
## 4923 '年
## 4924 1조8000억'
## 4925 BTS·손흥민
## 4926 급이라고?
## 4927 이준석
## 4928 “장애인
## 4929 단체에
## 4930 사과
## 4931 안
## 4932 해.
## 4933 2호선은
## 4934 타지
## 4935 마라”…
## 4936 고민정
## 4937 “이제
## 4938 놀랍지도
## 4939 않다”
## 4940 장애인
## 4941 단체
## 4942 “4월20일까지
## 4943 인수위
## 4944 답변
## 4945 없으면
## 4946 다시
## 4947 지하철
## 4948 출근길
## 4949 시위”
## 4950 [포토]
## 4951 경복궁
## 4952 향원정,
## 4953 아름다운
## 4954 겨울
## 4955 풍경
## 4956 전장연
## 4957 지하철
## 4958 시위는
## 4959 중단
## 4960 "인수위
## 4961 답변
## 4962 촉구,
## 4963 삭발투쟁"
## 4964 [문화이슈]
## 4965 한진관광
## 4966 플랫폼
## 4967 '여담',
## 4968 1번째
## 4969 여담데이
## 4970 경복궁
## 4971 궁궐탐방
## 4972 마무리
## 4973 경복궁의
## 4974 찬란한
## 4975 봄을
## 4976 기다린다,
## 4977 '고궁연화(古宮年華)'
## 4978 특별전
## 4979 '지하철
## 4980 무릎
## 4981 사과'
## 4982 김예지
## 4983 의원…
## 4984 "인수위에
## 4985 장애인
## 4986 요구
## 4987 최대한
## 4988 전달"
## 4989 한진관광,
## 4990 첫
## 4991 여담데이
## 4992 상품
## 4993 '경복궁
## 4994 투어'
## 4995 성황리에
## 4996 마쳐
## 4997 [사진]
## 4998 눈
## 4999 오면
## 5000 경복궁에
## 5001 가야할
## 5002 이유,
## 5003 이겁니다
## 5004 이준석
## 5005 ‘공개
## 5006 제지’
## 5007 선언에도…
## 5008 전장연
## 5009 ‘출근길
## 5010 시위’는
## 5011 계속
## 5012 [영상]
## 5013 이준석,
## 5014 전장연
## 5015 ‘지하철
## 5016 투쟁’
## 5017 중단에
## 5018 “다행이고
## 5019 환영”
## 5020 100년
## 5021 전
## 5022 경복궁,
## 5023 지금과
## 5024 어떻게
## 5025 다르고
## 5026 같을까
## 5027 [정치톡톡]
## 5028 취임식에
## 5029 김건희
## 5030 등판
## 5031 /
## 5032 일반국민
## 5033 누가
## 5034 참석?
## 5035 /
## 5036 "용산
## 5037 이전
## 5038 효과
## 5039 1.8조"
## 5040 "4대
## 5041 궁·종묘·조선왕릉으로
## 5042 봄꽃
## 5043 보러
## 5044 오세요"
## 5045 당은
## 5046 달라도...
## 5047 이준석
## 5048 '혐오정치'
## 5049 제동
## 5050 건
## 5051 세
## 5052 여성
## 5053 의원
## 5054 황희,
## 5055 '靑
## 5056 개방시
## 5057 연
## 5058 2000억
## 5059 경제효과'
## 5060 분석에
## 5061 "면밀한
## 5062 검토
## 5063 필요"
## 5064 황희,
## 5065 '靑
## 5066 개방시
## 5067 연
## 5068 2000억
## 5069 경제효과'
## 5070 분석에
## 5071 "면밀한
## 5072 검토
## 5073 필요"
## 5074 인수위-전장연
## 5075 면담
## 5076 전장연,
## 5077 출근길
## 5078 시위
## 5079 멈추고
## 5080 “삭발
## 5081 투쟁”
## 5082 전장연,
## 5083 지하철시위
## 5084 대신
## 5085 삭발식
## 5086 진행…이준석에
## 5087 "갈라치기
## 5088 멈춰라"
## 5089 이준석
## 5090 '장애인
## 5091 시위'
## 5092 논란,
## 5093 조명희
## 5094 "비난
## 5095 아닌
## 5096 제도확충
## 5097 필요"
## 5098 이준석-전장연
## 5099 연일
## 5100 충돌
## 5101 "비문명적
## 5102 시위"
## 5103 vs
## 5104 "악의적
## 5105 편집"
## 5106 [잡채기
## 5107 칼럼]
## 5108 청와대
## 5109 폐지와
## 5110 철거
## 5111 [노컷한컷]봄꽃도
## 5112 유가도
## 5113 전기·가스요금도
## 5114 :
## 5115 오르다
## 5116 전경련,
## 5117 尹
## 5118 지원사격?…
## 5119 “대통령
## 5120 집무실
## 5121 용산
## 5122 이전시
## 5123 관광수입
## 5124 매년
## 5125 1.8조”
## 5126 한경연
## 5127 "청와대
## 5128 전면
## 5129 개방시
## 5130 매년
## 5131 관광수입
## 5132 1조8000억
## 5133 발생"
## 5134 '올해
## 5135 문화유산'에
## 5136 한복·경복궁·대장경·백제지구·궁중음식
## 5137 100년
## 5138 전
## 5139 경복궁
## 5140 모습
## 5141 집에서
## 5142 영상으로
## 5143 본다
## 5144 집에서
## 5145 보는
## 5146 박수근
## 5147 전시와
## 5148 경복궁
## 5149 내부는
## 5150 '어떨까?'
## 5151 문화재청,
## 5152 인수위에
## 5153 청와대
## 5154 권역
## 5155 역사성
## 5156 보고
## 5157 이준석
## 5158 "전장연에
## 5159 사과할
## 5160 일
## 5161 없다..오히려
## 5162 사과
## 5163 받아야"
## 5164 이준석
## 5165 vs
## 5166 전장연,
## 5167 13일
## 5168 JTBC서
## 5169 일대일
## 5170 토론
## 5171 나선다
## 5172 [김두규
## 5173 칼럼]
## 5174 대통령집무실·관저
## 5175 이전과
## 5176 풍수
## 5177 전장연
## 5178 "이준석
## 5179 사과
## 5180 안하면
## 5181 2호선도
## 5182 시위"…"국민
## 5183 볼모
## 5184 남에게
## 5185 피해만
## 5186 주나"
## 5187 전장연,
## 5188 오늘부터
## 5189 시위
## 5190 중단하고
## 5191 릴레이
## 5192 삭발식
## 5193 문화재
## 5194 지역
## 5195 청와대
## 5196 파격변용
## 5197 불가…역사성
## 5198 고려
## 5199 근현대사
## 5200 박물관
## 5201 등
## 5202 무게
## 5203 문화재
## 5204 지역
## 5205 청와대
## 5206 파격변용
## 5207 불가…역사성
## 5208 고려
## 5209 근현대사
## 5210 박물관
## 5211 등
## 5212 무게
## 5213 용산
## 5214 풍수설,
## 5215 아니면
## 5216 말고식
## 5217 괴담인가
## 5218 [여기는
## 5219 논설실]
## 5220 [김세곤의
## 5221 세계
## 5222 문화
## 5223 기행]
## 5224 일본
## 5225 역사기행
## 5226 (23)<U+00A0>-
## 5227 도고
## 5228 신사
## 5229 (1)<U+00A0>
## 5230 <U+00A0>
## 5231 경복궁
## 5232 강녕전康寧殿,
## 5233 궁궐의
## 5234 중심
## 5235 속
## 5236 ‘살아
## 5237 있는
## 5238 용’
## 5239 이준석,
## 5240 전장연
## 5241 향해
## 5242 "문재인·박원순에겐
## 5243 말
## 5244 않던걸
## 5245 윤석열에
## 5246 요구"
## 5247 '출근길
## 5248 시위'
## 5249 장애인단체
## 5250 "이준석
## 5251 사과해야"
## 5252 인수위
## 5253 "전달하겠다"
## 5254 "경복궁
## 5255 방문
## 5256 거절했다면?"
## 5257 靑
## 5258 김정숙
## 5259 여사
## 5260 피라미드
## 5261 방문
## 5262 해명
## 5263 진땀
## 5264 [포토]
## 5265 경복궁에
## 5266 임금님들
## 5267 납시었네
## 5268 [포토]
## 5269 마스크
## 5270 쓰고
## 5271 경복궁
## 5272 나들이
## 5273 경복궁에서
## 5274 설
## 5275 연휴
## 5276 즐기는
## 5277 유학생들
## 5278 [포토]
## 5279 마스크
## 5280 쓰고
## 5281 경복궁
## 5282 나들이
## 5283 경복궁에서
## 5284 설
## 5285 연휴
## 5286 즐기는
## 5287 유학생들
## 5288 한산한
## 5289 모습의
## 5290 경복궁
## 5291 강추위에
## 5292 설
## 5293 연휴
## 5294 나들이객
## 5295 줄어든
## 5296 경복궁
## 5297 [뉴스앤이슈]
## 5298 尹,
## 5299 첫
## 5300 총리인선
## 5301 가속...
## 5302 한덕수
## 5303 카드
## 5304 급부상하나?
## 5305 "청와대
## 5306 전면개방시,
## 5307 1석3조
## 5308 기대된다"
## 5309 [포토]
## 5310 눈
## 5311 내린
## 5312 설날
## 5313 경복궁
## 5314 풍경
## 5315 설날
## 5316 경복궁
## 5317 인파
## 5318 설날
## 5319 경복궁
## 5320 찾은
## 5321 시민
## 5322 경복궁
## 5323 들어가는
## 5324 길
## 5325 설날
## 5326 경복궁
## 5327 인파
## 5328 설날
## 5329 경복궁
## 5330 찾은
## 5331 시민
## 5332 경복궁
## 5333 들어가는
## 5334 길
## 5335 설날
## 5336 경복궁
## 5337 '줄을
## 5338 서시오'
## 5339 설날,
## 5340 경복궁
## 5341 인산인해
## 5342 새하얀
## 5343 눈
## 5344 덮인
## 5345 경복궁
## 5346 설날에
## 5347 내린
## 5348 눈에
## 5349 새하얗게
## 5350 변한
## 5351 경복궁
## 5352 코로나19
## 5353 시대...
## 5354 인기만점
## 5355 경복궁
## 5356 눈오리도
## 5357 찾아온
## 5358 경복궁
## 5359 설날
## 5360 경복궁
## 5361 나들이
## 5362 경복궁
## 5363 설
## 5364 나들이
## 5365 인파
## 5366 눈오리도
## 5367 찾아온
## 5368 경복궁
## 5369 설날에
## 5370 내린
## 5371 눈에
## 5372 새하얗게
## 5373 변한
## 5374 경복궁
## 5375 설날
## 5376 경복궁
## 5377 나들이
## 5378 코로나19
## 5379 시대...
## 5380 인기만점
## 5381 경복궁
## 5382 설날
## 5383 경복궁
## 5384 '인산인해'
## 5385 설날,
## 5386 경복궁
## 5387 긴
## 5388 줄
## 5389 [천지포토]
## 5390 경복궁
## 5391 왕궁수문장
## 5392 교대의식
## 5393 [천지포토]
## 5394 경복궁
## 5395 꼬마
## 5396 나들이객
## 5397 눈
## 5398 쌓인
## 5399 경복궁
## 5400 설날
## 5401 눈
## 5402 내린
## 5403 경복궁
## 5404 '인산인해'
## 5405 설날,
## 5406 경복궁
## 5407 긴
## 5408 줄
## 5409 설날
## 5410 경복궁
## 5411 나들이
## 5412 [천지포토]
## 5413 경복궁
## 5414 용맹한
## 5415 왕궁수문장
## 5416 [천지포토]
## 5417 경복궁
## 5418 꼬마
## 5419 나들이객
## 5420 [천지포토]
## 5421 설날
## 5422 경복궁
## 5423 찾은
## 5424 나들이객
## 5425 설날
## 5426 경복궁
## 5427 '고운
## 5428 한복입고'
## 5429 설날,
## 5430 붐비는
## 5431 경복궁
#DB에서 할수 있지만 R에서도 전처리가 가능하다는걸 보여주기 위한 코드입니다.
#특수기호들을 지워보겠습니다.
temp1<- dbGetQuery(dm_con1, "SELECT X,REGEXP_REPLACE(X,'[[:punct:]]','') as words
FROM SAMJO_WORD")
tab1<-table(temp1$WORDS)
tab2<-sort(tab1, decreasing = T)
pal<-brewer.pal(8, "Accent")
wordcloud(names(tab2),
freq = tab2,
max.words = 50,
random.order = F,
rot.per = .1,
scale = c(7,0.3),
colors = pal
)
#워드 클라우드 심화버전
#글자 위에 커서를 올리면 벨류값을 볼수 있습니다!
tab1<-table(words)
tab2<-sort(tab1, decreasing = T)
#별모양
wordcloud2(data=tab2,color = "random-light", backgroundColor = "grey",fontFamily = '나눔바른고딕',shape='star')
library(rvest);search()
## [1] ".GlobalEnv" "package:wordcloud2" "package:wordcloud"
## [4] "package:RColorBrewer" "package:plotrix" "package:data.table"
## [7] "package:rvest" "package:RJDBC" "package:DBI"
## [10] "package:rJava" "package:odbc" "package:forcats"
## [13] "package:stringr" "package:purrr" "package:readr"
## [16] "package:tidyr" "package:tibble" "package:tidyverse"
## [19] "package:ggrepel" "package:readxl" "package:xts"
## [22] "package:zoo" "package:dygraphs" "package:ggplot2"
## [25] "package:dplyr" "package:stats" "package:graphics"
## [28] "package:grDevices" "package:utils" "package:datasets"
## [31] "package:methods" "Autoloads" "package:base"
library(dplyr);search()
## [1] ".GlobalEnv" "package:wordcloud2" "package:wordcloud"
## [4] "package:RColorBrewer" "package:plotrix" "package:data.table"
## [7] "package:rvest" "package:RJDBC" "package:DBI"
## [10] "package:rJava" "package:odbc" "package:forcats"
## [13] "package:stringr" "package:purrr" "package:readr"
## [16] "package:tidyr" "package:tibble" "package:tidyverse"
## [19] "package:ggrepel" "package:readxl" "package:xts"
## [22] "package:zoo" "package:dygraphs" "package:ggplot2"
## [25] "package:dplyr" "package:stats" "package:graphics"
## [28] "package:grDevices" "package:utils" "package:datasets"
## [31] "package:methods" "Autoloads" "package:base"
library(stringr) # str_sub() # 문자 자르기
library(readr) # parse_number() #숫자만
library(data.table);search() # %like% 연산자
## [1] ".GlobalEnv" "package:wordcloud2" "package:wordcloud"
## [4] "package:RColorBrewer" "package:plotrix" "package:data.table"
## [7] "package:rvest" "package:RJDBC" "package:DBI"
## [10] "package:rJava" "package:odbc" "package:forcats"
## [13] "package:stringr" "package:purrr" "package:readr"
## [16] "package:tidyr" "package:tibble" "package:tidyverse"
## [19] "package:ggrepel" "package:readxl" "package:xts"
## [22] "package:zoo" "package:dygraphs" "package:ggplot2"
## [25] "package:dplyr" "package:stats" "package:graphics"
## [28] "package:grDevices" "package:utils" "package:datasets"
## [31] "package:methods" "Autoloads" "package:base"
library(ggplot2)
library(dygraphs) # 인터렉티브 시계열 그래프
library(xts) #시계열 데이터 생성
library(ggplot2)
library(tidyr)
library(plotrix)
library(readxl)
library(wordcloud)
library(RColorBrewer)
library(odbc)
library(rJava)
library(RJDBC)
library(DBI)
library(wordcloud2)
doraemong2<-function(x){
#캐릭터 타입으로 변환
title<-as.character(x)
#띄어 쓰기 기준으로 자르기
word<-strsplit(title, " ")
#리스트를 벡터로 만ㄷ르어 줍니다.
words<-unlist(word)
#특문 문자를 지웁니다.
cm_words<- gsub("[[:punct:]]", "", words)
#빈도 수를 조사합니다.
tab1<-table(cm_words)
#정렬합니다.
tab2<-sort(tab1, decreasing = T)
pal<-brewer.pal(8, "Accent")
tab3<- wordcloud2(data=tab2,color = "random-light", backgroundColor = "grey",fontFamily = '나눔바른고딕')
return(tab3)
}
doraemong2(my_kyoung)
library(dplyr)
library(ggplot2)
library(readxl)
library(data.table) # like함수 사용
library(psych)
##
## 다음의 패키지를 부착합니다: 'psych'
## The following object is masked from 'package:plotrix':
##
## rescale
## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha
# ggplot 그래프 여러개 띄우는 package
library(gridExtra)
##
## 다음의 패키지를 부착합니다: 'gridExtra'
## The following object is masked from 'package:dplyr':
##
## combine
library(plotly)
##
## 다음의 패키지를 부착합니다: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
# Excel 데이터입력 완료!
samjo1 <- read_excel("4대궁 관람객 수 현황_2015.xlsx")
samjo2 <- read_excel("4대궁 관람객 수 현황_2016.xlsx")
samjo3 <- read_excel("4대궁 관람객 수 현황_2017.xlsx")
samjo4 <- read_excel("4대궁 관람객 수 현황_2018.xlsx")
samjo5 <- read_excel("4대궁 관람객 수 현황_2019.xlsx")
samjo6 <- read_excel("4대궁 관람객 수 현황_2020.xlsx")
# join
sam_01 <- samjo1 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_02 <- samjo2 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_03 <- samjo3 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_04 <- samjo4 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_05 <- samjo5 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_06 <- samjo6 %>% select("일자", "경복궁_외국인_총원","덕수궁_외국인_총원", "창경궁_외국인_총원", "창덕궁_외국인_총원")
sam_year15 <- sam_01 %>% filter(일자 == "2015년")
sam_year16 <- sam_02 %>% filter(일자 == "2016년")
sam_year17 <- sam_03 %>% filter(일자 == "2017년")
sam_year18 <- sam_04 %>% filter(일자 == "2018년")
sam_year19 <- sam_05 %>% filter(일자 == "2019년")
sam_year20 <- sam_06 %>% filter(일자 == "2020년")
# bind - 문제 1번 용
a <- bind_rows(sam_year15, sam_year16)
b <- bind_rows(a, sam_year17)
c <- bind_rows(b, sam_year18)
d <- bind_rows(c, sam_year19)
e <- bind_rows(d, sam_year20)
# 4대 궁 중에 외국인들이 어디 제일 많이 방문하는지-궁별/계절별 (민)
sum(e$경복궁_외국인_총원) # 8425705
## [1] 8425705
sum(e$덕수궁_외국인_총원) # 1548866
## [1] 1548866
sum(e$창경궁_외국인_총원) # 332711
## [1] 332711
sum(e$창덕궁_외국인_총원) # 2578258
## [1] 2578258
# 컬럼명 변경
e <- rename(e,
ytd = "일자",
Gyungbok_v.t = "경복궁_외국인_총원",
Duksoo_v.t = "덕수궁_외국인_총원",
Changkyung_v.t = "창경궁_외국인_총원",
Changduk_v.t = "창덕궁_외국인_총원")
head(e,4)
## # A tibble: 4 x 5
## ytd Gyungbok_v.t Duksoo_v.t Changkyung_v.t Changduk_v.t
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 2015년 1714487 178593 38789 405780
## 2 2016년 2897935 278133 49749 532728
## 3 2017년 1168321 327755 63906 452562
## 4 2018년 1022324 344953 76838 588875
# 4대 궁 중, 외국인들이 어디궁을 제일 많이 방문하는지 ----
ques1 <- ggplot(e,
aes(x = ytd))+
geom_line(aes(y = Gyungbok_v.t, color = "경복궁"),size = 1.2, group=1)+
geom_line(aes(y = Duksoo_v.t, color = "덕수궁"),size = 1.2, group=2)+
geom_line(aes(y = Changkyung_v.t, color = "창경궁"), size = 1.2, group=3)+
geom_line(aes(y = Changduk_v.t, color = "창덕궁"), size = 1.2, group=4)+
ggtitle("년도별 외국인 방문 궁")+
labs(x = "year", y = "visitor", color = "4대 궁")
# 인터렉티브 그래프
ggplotly(ques1)
(options(scipen=100000)) # 2e+6등의 문자를 지정숫자기준으로 출력
## $scipen
## [1] 0
# 4대 궁 중, 계절별 어디궁을 많이 방문하는지 ----
sam_season1 <- sam_01 %>% filter(일자 %like% "2015년")
sam_season2 <- sam_02 %>% filter(일자 %like% "2016년")
sam_season3 <- sam_03 %>% filter(일자 %like% "2017년")
sam_season4 <- sam_04 %>% filter(일자 %like% "2018년")
sam_season5 <- sam_05 %>% filter(일자 %like% "2019년")
sam_season6 <- sam_06 %>% filter(일자 %like% "2020년")
# bind - 문제 2번 용
sa <- bind_rows(sam_season1, sam_season2)
sb <- bind_rows(sa, sam_season3)
sc <- bind_rows(sb, sam_season4)
sd <- bind_rows(sc, sam_season5)
se <- bind_rows(sd, sam_season6)
# 컬럼명 변경
se <- rename(se,
Gyungbok_v.t = "경복궁_외국인_총원",
Duksoo_v.t = "덕수궁_외국인_총원",
Changkyung_v.t = "창경궁_외국인_총원",
Changduk_v.t = "창덕궁_외국인_총원")
se <- rename(se,
ytd = "일자")
spr <- se %>% filter(ytd == "2015년 봄")
summ <- se %>% filter(ytd == "2015년 여름")
fall <- se %>% filter(ytd == "2015년 가을")
win <- se %>% filter(ytd == "2015년 겨울")
# 계절별로 4대궁 외국인이 어느계졀에 많이 방문했는지 확인
gyungbok_t <- ggplot(data = se, aes(y = ytd, x = Gyungbok_v.t, fill= Gyungbok_v.t)) +
geom_col(width=0.7)
duksoo_t <- ggplot(data = se, aes(y = ytd, x = Duksoo_v.t, fill = Duksoo_v.t)) +
geom_col(width=0.7)
changkyung_t <- ggplot(data = se, aes(y = ytd, x = Changkyung_v.t, fill = Changkyung_v.t)) +
geom_col(width=0.7)
changduk_t <- ggplot(data = se, aes(y = ytd, x = Changduk_v.t, fill = Changduk_v.t)) +
geom_col(width=0.7)
grid.arrange(gyungbok_t, duksoo_t, ncol=2)
# 2015년에 외국인 방문수 - 계절별
ggplot(sam_season1, aes(x = 일자, y = 경복궁_외국인_총원))+
geom_col() + coord_flip()
ggplot(sam_season1, aes(x = 일자, y = 덕수궁_외국인_총원, fill = 덕수궁_외국인_총원))+
geom_bar(stat = 'identity', width=0.7)+ coord_flip() + theme(axis.text = element_text(size = 10))
ggplot(sam_season1, aes(x = 일자, y = 창경궁_외국인_총원, fill = as.factor(창경궁_외국인_총원)))+
geom_col()+coord_flip()
ggplot(sam_season1, aes(x = 일자, y = 창덕궁_외국인_총원, fill = as.factor(덕수궁_외국인_총원))) +
geom_bar(stat = 'identity', position = 'dodge', width=0.7) + coord_flip()
# 사용자 함수
# 두개의 년도를 입력해 해당 년도데이터를 비교
sam_compare <- function(a,b){
a <- e %>% filter(ytd == a)
b <- e %>% filter(ytd == b)
a <- print(a)
b <- print(b)
}
sam_compare("2015년","2020년")
## # A tibble: 1 x 5
## ytd Gyungbok_v.t Duksoo_v.t Changkyung_v.t Changduk_v.t
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 2015년 1714487 178593 38789 405780
## # A tibble: 1 x 5
## ytd Gyungbok_v.t Duksoo_v.t Changkyung_v.t Changduk_v.t
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 2020년 150729 50636 9712 51665
library(RJDBC)
library(DBI)
library(rJava)
library(odbc)
library(dplyr)
# db 연결----
ins.drivers <- odbcListDrivers()
jdbc_d <- JDBC(driverClass = "oracle.jdbc.OracleDriver",classPath = "C:/DATABASE/dbhomeXE/inventory/Scripts/ext/jlib/ojdbc8.jar")
# db 드라이브 생성 ----
dm_con1 <- dbConnect(jdbc_d,"jdbc:oracle:thin:@192.168.56.1:1521:XE",
"hr","hr")
dm_con1
## <JDBCConnection>
# 엑셀파일 가져오기 (사용자 정의 함수 사용) ----
excel <- function(a, data){
library(readxl)
data <- read_excel(a)
data <- rename(data, day = 일자)
data <- rename(data, gyeongbok_adfee = 경복궁_유료)
data <- rename(data, gyeongbok_free = 경복궁_무료)
data <- rename(data, gyeongbok_total = 경복궁_일별_총원)
data <- rename(data, gyeongbok_local = 경복궁_내국인)
data <- rename(data, gyeongbok_eng = 경복궁_영어권)
data <- rename(data, gyeongbok_jap = 경복궁_일본어권)
data <- rename(data, gyeongbok_chi = 경복궁_중국어권)
data <- rename(data, gyeongbok_oth = 경복궁_기타)
data <- rename(data, gyeongbok_foreign_total = 경복궁_외국인_총원)
data <- rename(data, deoksu_adfee = 덕수궁_유료)
data <- rename(data, deoksu_free = 덕수궁_무료)
data <- rename(data, deoksu_total = 덕수궁_일별_총원)
data <- rename(data, deoksu_local = 덕수궁_내국인)
data <- rename(data, deoksu_eng = 덕수궁_영어권)
data <- rename(data, deoksu_jap = 덕수궁_일본어권)
data <- rename(data, deoksu_chi = 덕수궁_중국어권)
data <- rename(data, deoksu_oth = 덕수궁_기타)
data <- rename(data, deoksu_foreign_total = 덕수궁_외국인_총원)
data <- rename(data, changgyeong_adfee = 창경궁_유료)
data <- rename(data, changgyeong_free = 창경궁_무료)
data <- rename(data, changgyeong_total = 창경궁_일별_총원)
data <- rename(data, changgyeong_local = 창경궁_내국인)
data <- rename(data, changgyeong_eng = 창경궁_영어권)
data <- rename(data, changgyeong_jap = 창경궁_일본어권)
data <- rename(data, changgyeong_chi = 창경궁_중국어권)
data <- rename(data, changgyeong_oth = 창경궁_기타)
data <- rename(data, changgyeong_foreign_total = 창경궁_외국인_총원)
data <- rename(data, changdeok_adfee = 창덕궁_유료)
data <- rename(data, changdeok_free = 창덕궁_무료)
data <- rename(data, changdeok_total = 창덕궁_일별_총원)
data <- rename(data, changdeok_local = 창덕궁_내국인)
data <- rename(data, changdeok_eng = 창덕궁_영어권)
data <- rename(data, changdeok_jap = 창덕궁_일본어권)
data <- rename(data, changdeok_chi = 창덕궁_중국어권)
data <- rename(data, changdeok_oth = 창덕궁_기타)
data <- rename(data, changdeok_foreign_total = 창덕궁_외국인_총원)
return(data)
}
pal_2015 <- excel("4대궁 관람객 수 현황_2015.xlsx")
pal_2016 <- excel("4대궁 관람객 수 현황_2016.xlsx")
pal_2017 <- excel("4대궁 관람객 수 현황_2017.xlsx")
pal_2018 <- excel("4대궁 관람객 수 현황_2018.xlsx")
pal_2019 <- excel("4대궁 관람객 수 현황_2019.xlsx")
pal_2020 <- excel("4대궁 관람객 수 현황_2020.xlsx")
# 새로운 컬럼 생성 ----
pal_2015<- pal_2015 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
pal_2016 <- pal_2016 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
pal_2017 <- pal_2017 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
pal_2018 <- pal_2018 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
pal_2019 <- pal_2019 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
pal_2020 <- pal_2020 %>% mutate(total = gyeongbok_foreign_total+deoksu_foreign_total+
changgyeong_foreign_total+changdeok_foreign_total)
# db에 저장 ----
#dbWriteTable(dm_con1, "mini_project_15", pal_2015)
#dbWriteTable(dm_con1, "mini_project_16", pal_2016)
#dbWriteTable(dm_con1, "mini_project_17", pal_2017)
#dbWriteTable(dm_con1, "mini_project_18", pal_2018)
#dbWriteTable(dm_con1, "mini_project_19", pal_2019)
#dbWriteTable(dm_con1, "mini_project_20", pal_2020)
# db에서 필요한 부분만 가져오기 ----
db_15 <- "select * from mini_project_15 where day like '%년%'"
db_2015 <- dbGetQuery(dm_con1, db_15)
db_16 <- "select * from mini_project_16 where day like '%년%'"
db_2016 <- dbGetQuery(dm_con1, db_16)
db_17 <- "select * from mini_project_17 where day like '%년%'"
db_2017 <- dbGetQuery(dm_con1, db_17)
db_18 <- "select * from mini_project_18 where day like '%년%'"
db_2018 <- dbGetQuery(dm_con1, db_18)
db_19 <- "select * from mini_project_19 where day like '%년%'"
db_2019 <- dbGetQuery(dm_con1, db_19)
db_20 <- "select * from mini_project_20 where day like '%년%'"
db_2020 <- dbGetQuery(dm_con1, db_20)
# 컬럼명 소문자로 변경 ----
colnames(db_2015) <- tolower(colnames(db_2015))
colnames(db_2016) <- tolower(colnames(db_2016))
colnames(db_2017) <- tolower(colnames(db_2017))
colnames(db_2018) <- tolower(colnames(db_2018))
colnames(db_2019) <- tolower(colnames(db_2019))
colnames(db_2020) <- tolower(colnames(db_2020))
#View(db_2015)
# 데이터 결합 (bind-row) ----
pal_total <- bind_rows (db_2015, db_2016)
pal_total <- bind_rows (pal_total, db_2017)
pal_total <- bind_rows (pal_total, db_2018)
pal_total <- bind_rows (pal_total, db_2019)
pal_total <- bind_rows (pal_total, db_2020)
#View(pal_total)
# 새로운 컬럼 생성 (사용자 정의 함수) ----
eng_fun <- function(a){
qfun <- a %>% mutate(eng_total = gyeongbok_eng+deoksu_eng+
changgyeong_eng+changdeok_eng)
qfun <- qfun %>% select(day, eng_total)
return(qfun)
}
jap_fun <- function(a){
qfun <- a %>% mutate(jap_total = gyeongbok_jap+deoksu_jap+
changgyeong_jap+changdeok_jap)
qfun <- qfun %>% select(day, jap_total)
return(qfun)
}
chi_fun <- function(a){
qfun <- a %>% mutate(chi_total = gyeongbok_chi+deoksu_chi+
changgyeong_chi+changdeok_chi)
qfun <- qfun %>% select(day, chi_total)
return(qfun)
}
oth_fun <- function(a){
qfun <- a %>% mutate(oth_total = gyeongbok_oth+deoksu_oth+
changgyeong_oth+changdeok_oth)
qfun <- qfun %>% select(day, oth_total)
return(qfun)
}
pal_total_chi <- chi_fun(pal_total)
pal_total_jap <- jap_fun(pal_total)
pal_total_eng <- eng_fun(pal_total)
pal_total_oth <- oth_fun(pal_total)
# 데이터 결합 (full_join) ----
join_fun <- function(a, b, c, d){
full_1 <- full_join(a, b, by="day")
full_2 <- full_join(full_1, c, by="day")
full_3 <- full_join(full_2, d, by="day")
return(full_3)
}
pal_total_vis <- join_fun(pal_total_eng, pal_total_chi, pal_total_jap, pal_total_oth)
# View(pal_total_vis)
# 엑셀 파일 가져오기
for_total <- read_excel("15-21 한국 방문 외국인.xlsx")
# 컬럼명 변경 후 데이터 결합 (left_join)
for_total <- rename(for_total, day = 일자)
vis_palvis <- left_join(pal_total, for_total, by="day")
#View(vis_palvis)
library(stringr)
library(ggplot2)
library(dplyr)
# 데이터 결합 (full_join) 후 필요한 컬럼만 가져오기
vis_total_info <- full_join(pal_total_vis, vis_palvis, by="day")
#names(vis_total_info)
vis_total_info <- vis_total_info %>% select(1, 42, 2, 3, 4, 5, 43, 46, 49, 52, 55)
#View(vis_total_info)
# 한국 방문 대비 4대궁 방문 전체 외국인 비율
vis_total_info <- vis_total_info %>% mutate(vis_avg_total =(total/총원)*100)
# 한국방문 대비 4대궁 방문 / 미방문 영어권 비율
vis_total_info <- vis_total_info %>% mutate(궁_방문객_영어권 = (eng_total/영어_총원)*100)
vis_total_info <- vis_total_info %>% mutate(궁_미방문객_영어권 = (영어_총원 - eng_total)/영어_총원*100)
# 한국방문 대비 4대궁 방문 / 미방문 일본어권 비율
vis_total_info <- vis_total_info %>% mutate(궁_방문객_일본어권 = (jap_total/일본_총원)*100)
vis_total_info <- vis_total_info %>% mutate(궁_미방문객_일본어권 = (일본_총원 - jap_total)/일본_총원*100)
# 한국방문 대비 4대궁 방문 / 미방문 중국어권 비율
vis_total_info <- vis_total_info %>% mutate(궁_방문객_중국어권 = (chi_total/중국_총원)*100)
vis_total_info <- vis_total_info %>% mutate(궁_미방문객_중국어권 = (중국_총원 - chi_total)/중국_총원*100)
# 한국방문 대비 4대궁 방문 / 미방문 기타 비율
vis_total_info <- vis_total_info %>% mutate(궁_방문객_기타 = (oth_total/기타_총원)*100)
vis_total_info <- vis_total_info %>% mutate(궁_미방문객_기타 = (기타_총원-oth_total)/기타_총원*100)
# vis_total_info %>% select(12, 13, 14, 15, 16)
# vis_total_info[,c(5,9)]
# names(vis_total_info)
# vis_total_info %>% select(12, 13, 14, 15, 16, 17)
# vis_total_info[,c(5,8)]
# View(vis_total_info)
# 엑셀파일 가져오기기
visit_info <- read_excel("mini_project.xlsx")
# View(visit_info)
# 필요 컬럼만 뽑아서 가져오기 (년도별/언어권 별 4대궁 방문 외국인 비율 (방문자 / 미방문자))
per_2015_eng <- visit_info[c(12:13),c(1,2)]
per_2015_jap <- visit_info[c(14:15),c(1,2)]
per_2015_chi <- visit_info[c(16:17),c(1,2)]
per_2015_oth <- visit_info[c(18:19),c(1,2)]
per_2016_eng <- visit_info[c(12:13),c(1,3)]
per_2016_jap <- visit_info[c(14:15),c(1,3)]
per_2016_chi <- visit_info[c(16:17),c(1,3)]
per_2016_oth <- visit_info[c(18:19),c(1,3)]
per_2017_eng <- visit_info[c(12:13),c(1,4)]
per_2017_jap <- visit_info[c(14:15),c(1,4)]
per_2017_chi <- visit_info[c(16:17),c(1,4)]
per_2017_oth <- visit_info[c(18:19),c(1,4)]
per_2018_eng <- visit_info[c(12:13),c(1,5)]
per_2018_jap <- visit_info[c(14:15),c(1,5)]
per_2018_chi <- visit_info[c(16:17),c(1,5)]
per_2018_oth <- visit_info[c(18:19),c(1,5)]
per_2019_eng <- visit_info[c(12:13),c(1,6)]
per_2019_jap <- visit_info[c(14:15),c(1,6)]
per_2019_chi <- visit_info[c(16:17),c(1,6)]
per_2019_oth <- visit_info[c(18:19),c(1,6)]
per_2020_eng <- visit_info[c(12:13),c(1,7)]
per_2020_jap <- visit_info[c(14:15),c(1,7)]
per_2020_chi <- visit_info[c(16:17),c(1,7)]
per_2020_oth <- visit_info[c(18:19),c(1,7)]
library(stringr)
library(ggplot2)
library(dplyr)
# 년도별 / 언어권별 4대궁 방문,미방문자 비율 파이 그래프
# 2015년
ggplot(data=per_2015_eng)+geom_bar(aes(x="", y=`2015`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2015`/2 + c(0, cumsum(`2015`)[-length(`2015`)]),
label = paste0(round(`2015`/ sum(`2015`)*100,1), "%")))+
ggtitle("2015년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2015_jap)+geom_bar(aes(x="", y=`2015`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2015`/2 + c(0, cumsum(`2015`)[-length(`2015`)]),
label = paste0(round(`2015`/ sum(`2015`)*100,1), "%")))+
ggtitle("2015년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2015_chi)+geom_bar(aes(x="", y=`2015`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2015`/2 + c(0, cumsum(`2015`)[-length(`2015`)]),
label = paste0(round(`2015`/ sum(`2015`)*100,1), "%")))+
ggtitle("2015년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2015_oth)+geom_bar(aes(x="", y=`2015`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2015`/2 + c(0, cumsum(`2015`)[-length(`2015`)]),
label = paste0(round(`2015`/ sum(`2015`)*100,1), "%")))+
ggtitle("2015년 한국 방문 대비 4대궁 방문 비율 (기타)")
# 2016년
ggplot(data=per_2016_eng)+geom_bar(aes(x="", y=`2016`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2016`/2 + c(0, cumsum(`2016`)[-length(`2016`)]),
label = paste0(round(`2016`/ sum(`2016`)*100,1), "%")))+
ggtitle("2016년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2016_jap)+geom_bar(aes(x="", y=`2016`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2016`/2 + c(0, cumsum(`2016`)[-length(`2016`)]),
label = paste0(round(`2016`/ sum(`2016`)*100,1), "%")))+
ggtitle("2016년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2016_chi)+geom_bar(aes(x="", y=`2016`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2016`/2 + c(0, cumsum(`2016`)[-length(`2016`)]),
label = paste0(round(`2016`/ sum(`2016`)*100,1), "%")))+
ggtitle("2016년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2016_oth)+geom_bar(aes(x="", y=`2016`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2016`/2 + c(0, cumsum(`2016`)[-length(`2016`)]),
label = paste0(round(`2016`/ sum(`2016`)*100,1), "%")))+
ggtitle("2016년 한국 방문 대비 4대궁 방문 비율 (기타)")
# 2017년
ggplot(data=per_2017_eng)+geom_bar(aes(x="", y=`2017`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2017`/2 + c(0, cumsum(`2017`)[-length(`2017`)]),
label = paste0(round(`2017`/ sum(`2017`)*100,1), "%")))+
ggtitle("2017년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2017_jap)+geom_bar(aes(x="", y=`2017`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2017`/2 + c(0, cumsum(`2017`)[-length(`2017`)]),
label = paste0(round(`2017`/ sum(`2017`)*100,1), "%")))+
ggtitle("2017년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2017_chi)+geom_bar(aes(x="", y=`2017`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2017`/2 + c(0, cumsum(`2017`)[-length(`2017`)]),
label = paste0(round(`2017`/ sum(`2017`)*100,1), "%")))+
ggtitle("2017년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2017_oth)+geom_bar(aes(x="", y=`2017`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2017`/2 + c(0, cumsum(`2017`)[-length(`2017`)]),
label = paste0(round(`2017`/ sum(`2017`)*100,1), "%")))+
ggtitle("2017년 한국 방문 대비 4대궁 방문 비율 (기타)")
# 2018년
ggplot(data=per_2018_eng)+geom_bar(aes(x="", y=`2018`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2018`/2 + c(0, cumsum(`2018`)[-length(`2018`)]),
label = paste0(round(`2018`/ sum(`2018`)*100,1), "%")))+
ggtitle("2018년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2018_jap)+geom_bar(aes(x="", y=`2018`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2018`/2 + c(0, cumsum(`2018`)[-length(`2018`)]),
label = paste0(round(`2018`/ sum(`2018`)*100,1), "%")))+
ggtitle("2018년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2018_chi)+geom_bar(aes(x="", y=`2018`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2018`/2 + c(0, cumsum(`2018`)[-length(`2018`)]),
label = paste0(round(`2018`/ sum(`2018`)*100,1), "%")))+
ggtitle("2018년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2018_oth)+geom_bar(aes(x="", y=`2018`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2018`/2 + c(0, cumsum(`2018`)[-length(`2018`)]),
label = paste0(round(`2018`/ sum(`2018`)*100,1), "%")))+
ggtitle("2018년 한국 방문 대비 4대궁 방문 비율 (기타)")
# 2019년
ggplot(data=per_2019_eng)+geom_bar(aes(x="", y=`2019`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2019`/2 + c(0, cumsum(`2019`)[-length(`2019`)]),
label = paste0(round(`2019`/ sum(`2019`)*100,1), "%")))+
ggtitle("2019년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2019_jap)+geom_bar(aes(x="", y=`2019`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2019`/2 + c(0, cumsum(`2019`)[-length(`2019`)]),
label = paste0(round(`2019`/ sum(`2019`)*100,1), "%")))+
ggtitle("2019년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2019_chi)+geom_bar(aes(x="", y=`2019`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2019`/2 + c(0, cumsum(`2019`)[-length(`2019`)]),
label = paste0(round(`2019`/ sum(`2019`)*100,1), "%")))+
ggtitle("2019년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2019_oth)+geom_bar(aes(x="", y=`2019`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2019`/2 + c(0, cumsum(`2019`)[-length(`2019`)]),
label = paste0(round(`2019`/ sum(`2019`)*100,1), "%")))+
ggtitle("2019년 한국 방문 대비 4대궁 방문 비율 (기타)")
# 2020년
ggplot(data=per_2020_eng)+geom_bar(aes(x="", y=`2020`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2020`/2 + c(0, cumsum(`2020`)[-length(`2020`)]),
label = paste0(round(`2020`/ sum(`2020`)*100,1), "%")))+
ggtitle("2020년 한국 방문 대비 4대궁 방문 비율 (영어권)")
ggplot(data=per_2020_jap)+geom_bar(aes(x="", y=`2020`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2020`/2 + c(0, cumsum(`2020`)[-length(`2020`)]),
label = paste0(round(`2020`/ sum(`2020`)*100,1), "%")))+
ggtitle("2020년 한국 방문 대비 4대궁 방문 비율 (일본어권)")
ggplot(data=per_2020_chi)+geom_bar(aes(x="", y=`2020`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2020`/2 + c(0, cumsum(`2020`)[-length(`2020`)]),
label = paste0(round(`2020`/ sum(`2020`)*100,1), "%")))+
ggtitle("2020년 한국 방문 대비 4대궁 방문 비율 (중국어권)")
ggplot(data=per_2020_oth)+geom_bar(aes(x="", y=`2020`, fill=방문여부), width=1, stat = "identity")+
coord_polar("y", start = 0)+
geom_text(aes(x="", y= `2020`/2 + c(0, cumsum(`2020`)[-length(`2020`)]),
label = paste0(round(`2020`/ sum(`2020`)*100,1), "%")))+
ggtitle("2020년 한국 방문 대비 4대궁 방문 비율 (기타)")
library(ggiraphExtra)
library(mapproj)
## 필요한 패키지를 로딩중입니다: maps
##
## 다음의 패키지를 부착합니다: 'maps'
## The following object is masked from 'package:purrr':
##
## map
library(maps)
library(ggplot2)
library(tibble)
library(rvest)
library(dplyr)
library(stringr) # str_sub() # 문자 자르기
library(readr) # parse_number() #숫자만
library(data.table)
library(ggplot2)
library(dygraphs) # 인터렉티브 시계열 그래프
library(xts) #시계열 데이터 생성
library(ggplot2)
library(tidyr)
library(plotrix)
library(readxl)
library(wordcloud)
library(RColorBrewer)
library(odbc)
library(rJava)
library(RJDBC)
library(DBI)
library(wordcloud2)
# map_data("state")
ins.drivers <- odbcListDrivers()
jdbc_d <- JDBC(driverClass = "oracle.jdbc.OracleDriver",classPath = "C:/DATABASE/dbhomeXE/inventory/Scripts/ext/jlib/ojdbc8.jar")
# db 드라이브 생성 ----
dm_con1 <- dbConnect(jdbc_d,"jdbc:oracle:thin:@192.168.56.1:1521:XE",
"hr","hr")
dm_con1
## <JDBCConnection>
# 엑셀 파일 가져오기 (사용자 정의 함수) ----
xl_usa <- function(x){
switch(x, us_1 = read_excel("my_USA.xlsx", sheet = 1, col_names = T),
us_2 = read_excel("my_USA.xlsx", sheet = 2, col_names = T),
us_3 = read_excel("my_USA.xlsx", sheet = 3, col_names = T),
us_4 = read_excel("my_USA.xlsx", sheet = 4, col_names = T),
us_5 = read_excel("my_USA.xlsx", sheet = 5, col_names = T),
us_6 = read_excel("my_USA.xlsx", sheet = 6, col_names = T),
us_7 = read_excel("my_USA.xlsx", sheet = 7, col_names = T))
}
us_1 <- xl_usa("us_1")
us_2 <- xl_usa("us_2")
us_3 <- xl_usa("us_3")
us_4 <- xl_usa("us_4")
us_5 <- xl_usa("us_5")
us_6 <- xl_usa("us_6")
us_7 <- xl_usa("us_7")
# 데이터 결합 후 NA 값 0으로 변경 (사용자 정의 함수) ----
bind_fun <- function(a, b, c, d, e, f, g){
aa <- bind_rows(a, b)
aaa <- bind_rows(aa, c)
aaaa <- bind_rows(aaa, d)
aaaaa <- bind_rows(aaaa, e)
aaaaaa <- bind_rows(aaaaa, f)
aaaaaaa <- bind_rows(aaaaaa, g)
xxx <- aaaaaaa %>% mutate(search_rate, replace(., is.na(.), 0))
xxx <- xxx %>% arrange(-search_rate, state)
return(xxx)
}
my_data <- bind_fun(us_1, us_2, us_3, us_4, us_5, us_6, us_7)
# my_data
# View(my_data)
# db에 파일 저장 후 불러오기
#dbWriteTable(dm_con1, "mini_project_usmap", my_data)
USA_map <- "select * from mini_project_usmap order by search_rate desc, state"
USA_map <- dbGetQuery(dm_con1, USA_map)
USA_map <- map_data("state")
ggChoropleth(data=my_data, # 지도에 표현할 데이터
map=USA_map, # 지도데이터
aes(fill=search_rate,
map_id=state),
title="USA search Rate(Palace)",
col="darkblue",
interactive=T)